DANMARKS  STØRSTE  TASTE-IND  BLAD 

NR. 4-KR. 34,85 


'1  •iT.-.i 


ARCADE  AOION 
PÅ  DIN 

COMMODORE 


ISCOKC 


UNDER  2  KR. 
PR.  PROGRAM!! 


DET  TYKKE  TILBUD: 


Tegn  abonnement  på  Danmarks 
største  prc^ram-bibliotek . . . 


’TAST”  er  Danmarks  største  taste-ind  blad. 
Et  sandt  bibliotek  af  spændende  kvalitetsprogrammer, 
der  nu  udkommer  fast  hver  tredie  måned. 

Tegn  abonnement  NU!  Ikke  bare  er 
det  den  billigste  løsning,  men  du  får  også 
bladet  bragt  til  døren  -  gerne  34  dage  før 

det  udkommer. 

Et  helt  år  koster  bare  122  kroner.  Eller  omkring 

en  krone  pr.  program  ... 

SEND  KUPONEN  IDAG! 


Ja  tak,  lad  mig  tegne  abonnement 
på  ’TAST”  i  et  år  (4  numre). 

Jcj;  har:  Indsat  kr.  122,-  på  giro  9  40  60  77  □ 
Vedlagt  en  check  på  kr.  122,-  □ 

Navn _ 

Adresse _  _ _ 


Computer: _ _ 

Sendes  til:  TAST  Abonnement 
St.  Kongensgade  72 
1264  København  K. 


Kære  læser. 

Nu  er  det  endnu  tid  for  at  finde  tastaturet  frem  og  få  trykket  lidt  på  de  rigti¬ 
ge  knapper.  TAST,  Danmarks  største  taste-ind  blad,  er  hos  dig  igen. 
Mangler  du  små  (men  ofte  seriøse)  rutiner,  du  kan  lægge  ind  i  dine  egne  pro¬ 
grammer,  er  vores  La  Petite  Programme  sagen.  LaPP-sektionen,  som  vi  også 
kalder  den,  finder  du  forrest  i  bladet,  og  her  har  vore  eksperter  valgt  de  al¬ 
lerbedste  småprogrammer  ud  til  dig  og  din  computer. 

Videre  i  bladet  finder  du  de  tunge  listninger.  TAST  er  blevet  så  kendt  for.  Kva¬ 
litetsprogrammer,  der  nok  er  værd  at  ha'  i  sin  program-samling.  Jo,  også  det¬ 
te  er  det  bedste  af  det  bedste. 

TAST  er  bladet  for  alle.  der  kan  li’  selv  at  lave  programmer.  Og  hånden  på  hjer¬ 
tet:  Er  der  noget  bedre  i  denne  kolde  tid  end  at  putte  sig  op  ad  en  varm  mo¬ 
nitor? 

Rasmus  Kirkegård  Kristiansen 
Chefredaktør 


4  Lav  selv  spil 

-  uden  selv  at  lære  programmering 

6  Tastlyd 

Commodore  64/128 _ 

6  Tempotester 

Commodore  64/128 _ 

6  Søjlediagrammer 

Commodore  64/128,  \/IC-20,  m.fl. 

7  Cursorset 

Commodore  64/128 _ 

7  Dansk  karaktersæt 

Commodore  64/128 _ 

8  Programmeringstips 

Commodore  128 _ 

8  10-fingerlær 

Commodore  64/128  m.fl. _ 

9  Smart  RSX 

Amstrad  _ 

10  Halen  pa  æslet 

Commodore  64/128 _ 

10  Datamaker  Hex 

Commodore  64/128 _ 

11  Edit-kommandoer 

Commodore  64/128 _ 

11  Scroll-text 

Commodore  64/128 _ 

12  Farve>kommandoer 

Commodore  64/128 


12  Der  er  et  yndigt  . . . 

Commodore  64/128 

13  Ligningsløser 

Commodore  64/128,  C16/plus4,  VIC20 

14  Leramin 

Commodore  64/128 

17  Fruit  Itee 

Commodore  64/128 

22  Orisplit 

Amstrad 

23  Castle  Dungeon 

Commodore  64/128 

26  Sortering 

Piccolo 

28  Ørneøje 

Amstrad 

31  Dødens  Passage 

Commodore  64/128 

34  King>Kong 

VIC-20 

36  Checkede  kassetter 

Spectrum 

39  Flagtræner 

Commodore  64/128 

42  Program-cruncher 

Commodore  64/128 

43  Disk'katalog 

Amstrad 


Ansvarshavende  udgiver: 

Peter  E.  Jensen 

TAST- 

Distribution: 

Klaus  Nordfeld 

Tobisch  Fotografi 

Darnnarks  starste  taste-bid  Mad 

DCA 

Barghoiz  Offset  Repro 

Samtiige  aftrykte  listninger  er  afprøvede 

Avispostkontoret 

Chefredaktør 

Partner  Repro 

før  offentliggøreise.  Fbriaget  betaier  skat¬ 

Rasmus  Kirkegård  Kristiansen 

Olesen  Offset 

tefrit  op  til  1000  kroner  for  godkendte  læ¬ 

Når  biadet  ikke  frem,  henvend  dig  da 

Redaktion: 

Skovs  Bogbinderi 

serprogrammer.  Fbriaget  har  ret  til  at  af¬ 
trykke  godkendte  programmer  i  bladet 

først  på  dit  iokaie  postkontor. 

Henrik  Bang 

TAST 

og  må  offentliggøre  dem  på  andre  iager- 

TAST  udgives  af  foriaget  Audio  A/S,  der 

Jacob  Heiberg 

St.  Kbngensgade  72 

media.  TAST  accepterer  listninger  tii  alle 

også  udgiver  "SOFT”,  svensk  "SOFT”, 

Michaei  Christiansen 

1264  København  K. 

markedets  datamater,  også  IBM.  Amiga 

"COMputer",  svensk  "COMputer”,  "Ait 

Tif.  01  91  28  33 

og  lign.  Listninger  skal  være  skrevet  i  det 

om  Data”,  ”ny  elektronik”,  "high 

Produktion: 

Postgiro-nr.  9  40  60  77 

i  datamaten  mest  benyttede  sprog.  Af¬ 

fidelity”,  svensk  "high  fideiity”  og 

Hasiev  Fotosats 

Teiefax  01  91  01  21 

sender  garanterer  programmets  originalitet. 

Hi-Fi  årbogen. 

TAST 


Det  er  spil  som  det¬ 
te.  du  selv  kan  lave 
uden  det  mindste 
kendskab  til  pro¬ 
grammering.  Og  du 
må  gerne  sælge  det 
videre  til  andre! 


Her  i  vi  i  sprite-de- 
signeren  og  i  færd 
med  at  designe  et 
flyvende  rum-øje. 
^erst  oppe  til  ven¬ 
stre  ses  det  færdige 
resultat  i  naturlig 
størrelse.  Nederst 
vælges  farverne. 
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Lov  dine  egne  spil  uden  af  kunne  progrommmere: 

Når  €ompu§m^ 
spåhno  bBver 

WOm  KCwKCma^Cmøm 


Selv  uden  kendskab  fil  progrommenng  kon 
du  love  dine  egne  floffe  compufer-spiL  B  nyf 
program,  "Shoof  'em-up  Consfrucfion  Kif"gør 
def  muligf  -  effer  bore  fo  fimers  arbejde  kon  du 
frembringe  dine  egne  rumspil.  Og  de  er  ikke 
fil  af  skelne  fra  de  professionelle  købe-spil! 


Tekst:  Rasmus  Kirkegård 
Foto:  Emst  Tobisch  m.fl. 

Manges  drøm  er  at  kunne  pro¬ 
grammere  flydende.  Men  det  er 
svært  at  lære.  og  de  fleste  giver  op 
på  halvvejen.  At  mestre  en  compu¬ 
ter  så  godt  at  man  kan  frembringe 
professionelle  programmer  er 
nemlig  ikke  helt  ligetil.  Og  slet 
ikke  hvis  de  også  skal  være  fri  for 
fejl. 


Men  nu  er  hjælpen  kommet.  Et 
nyt  engelsk  program  sætter  selv 


den  mest  uerfarne  computerejer  i 
stand  til  at  opfinde  spil.  Endda  spil. 
der  fungerer  og  faktisk  ikke  kan 
skelnes  fra  'den  ægte  vare'.  De  lig¬ 
ner  de  spil.  du  normalt  må  give 
næsten  200  kroner  for  i  forretnin¬ 
gerne.  Og  de  er  mindst  lige  så  sjove 
at  spille,  for  du  har  jo  selv  lavet 
dem. 

Helt  uden  at  kunne  så  meget  som 
bare  een  eneste  linie  BASIC,  kan 
enhver  nu  skrive  spil.  Program¬ 
met,  der  gør  det  muligt,  hedder 
'Shoot  'em  up  Construction  Kif 


Computeren  står  tændt,  klar  til  at 
du  laver  et  superspil.  Normalt  skal 
du  kunne  programmere,  men  ikke 
med  "Shoot'em  up  Construction 
Kit"  -  her  at  det  faktisk  nemmere 
at  lave  et  spil  end  det  er  at  spille 
detl 


og  kan  erhverves  i  landets  datafor¬ 
retninger  for  omkring  275  kroner 
( 1 00  kroner  mere  for  en  diskette¬ 
version).  I  øjeblikket  er  kun  Com- 
modore-ejere  de  heldige,  men  se¬ 
nere  på  året  vil  Amstrad-  og  Spec- 
trum-versioner  følge. 

Fire  gratis  rum¬ 
spil  følger  med. 

Når  du  køber  "Shoot  'em  up  Con¬ 
struction  Kif  får  du  fire  gratis  spil 
med  på  båndet  eller  disketten. 
Spillene  er  alle  udviklet  på  "Con¬ 
struction  Kif'et.  så  udover  at  fun¬ 
gere  som  almindelige  spil,  du  kan 
få  tiden  til  at  gå  med.  virker  de  og¬ 
så  som  demos.  Faktisk  er  de  fire 
spil  den  bedste  måde  at  få  et  ind¬ 
tryk  af  programmets  muligheder¬ 
ne. 

Spillene  er  lavet  af  de  samme  men¬ 
nesker  som  skrev  "Parallax"  og 
"Wizbair  for  Ocean.  Det  er  også 
dem,  der  står  bag  "Shoot  'em  Up 
Construction  Kif  og  de  kalder  sig 
Sensible  Software. 

Mest  af  alt  ligner  spillene  "Xevi- 
ous"  og  andre  grafisk  gode  rum¬ 
spil.  Der  er  ikke  noget  nyskabende 
over  dem.  men  det  plejer  der  heller 
ikke  at  være  i  genren  -  her  er  det 
gode.  gedigne  skyd-dem-ned  spil, 
der  tæller. 

Med  "Shoot  'em-up  Construction 
Kif  har  du  een  begrænsning:  Du 
kan  kun  lave  skydespil.  Altså  ikke 
noget  med  Pacman  eller  adventu¬ 
res.  Til  gengæld  at  der  rig  mulig¬ 
hed  for  at  lade  fantasien  få  frit  spil 
inden  for  områder  som  rumkrig, 
fremmede  planeter  og  vild  jagt  på 
fjendtlige  styrker. 

Du  kan  designe  både 
figurer  og  baggrunde. 

I  "Shoot  'em-up  Construction  Kif 


er  sprite-designeren  nem  at  gå  til. 
Det  er  en  skærm,  hvor  du  selv  teg¬ 
ner  alle  figurerne.  een  efter  een.  Du 
kan  frit  lægge  farver  ind  og  det  he¬ 
le  er  meget  nemt.  Da  Anne  på  1 0 
blev  sat  hen  foran  skærmen,  var 
der  ikke  grænser  for.  hvor  nuttede 
de  mangefarvede  rumdyr  og  fan- 
tasi-væsener  kunne  blive. 

Ialt  kan  der  skabes  1 28  sprites  på 
hver  12x21  punkter.  Det  er  mere 
end  mange  af  de  professionelle  kø- 
bespil  bruger,  så  ingen  tvivl  om  at 
vi  er  kommet  op  i  den  tunge  klas¬ 
se. 

Også  lydsektionen  er  imponeren¬ 
de.  Den  minder  faktisk  om  en  hel 
lille  mini-mixer,  og  når  du  har 
skabt  netop  dine  lyde.  kan  de  gem¬ 
mes  og  kaldes  frem  på  vilkårlige 
tidspunkter  i  spillet.  Lydene  kan 
være  alt  lige  fra  melodier  til  smar¬ 
te  lydeffekter  som  eksplosioner, 
skud  eller  alarmsignaler.  Du  be¬ 
stemmer  (og  er  du  ikke  tilfreds, 
kan  en  lyd  altid  ændres). 
Baggrunde  kan  designes  efter 
samme  princip  som  dine  figurer, 
fjender,  rumskibe,  skud.  eksplo¬ 
sioner  og  alt  det  andet,  du  lavede 
med  spritedesigneren.  Her  gælder 
samme  princip:  Efter  få  timer  har 
man  lært  det,  for  alt  er  menu-sty¬ 
ret  med  nemme  oversigter.  Du 
skal  ikke  programmere  bare  een 
eneste  linie. 


Købere  af  "Shoot  'em-up  Con¬ 
struction  Kif  må  frit  sælge  de  pro¬ 
grammer.  de  udvikler.  Der  er  ingen 
copyright  på  spil.  som  er  lavet  ved 
hjælp  af  programmet. 

Hos  udgiverne  i  England,  Palace 
Software  og  Outlaw  Productions. 
kan  man  da  også  melde  om.  at 
nogle  af  konkurrenterne  har  været 
på  indkøb.  Af  diskretionshensyn 
vil  de  ikke  røbe  hvem.  men  i  kroge¬ 
ne  hviskes  bl.a.  om  Mastertronic 
og  Firebird,  som  vil  bruge  "Shoot 
'em-up  Construction  Kif  til  at 
masseproducere  billigspil  i  frem¬ 
tiden. 

Dine  egne  spil  må  du  selv  sælge 
som  du  lyster.  Har  du  fået  en  god 
og  salgbar  ide.  står  det  dig  altså 
frit  for  at  prakke  venner  og  be¬ 
kendte  spillet  på. 

Har  du  større  ambitioner,  kan  du 
indrykke  annoncer  i  bladene  og 
derigennem  sælge  dine  spil.  Ja. 
hvem  ved  -  måske  er  "Shoot  'em- 
up  Construction  Kif  starten  på  dit 
eget  softwarefirma. 

Nye  tider  er  i  hvert  fald  kommet. 
De  dage,  hvor  programmering  var 
en  mystisk  kunst  er  forbi. 


TAST -5 


TAST 


Her  er  La  Petite  Pro- 
gramme  eller  på  godt 
dansk:  La.P.PJ 
Din  nye  sektion  med 
småprogrammer  og 
smarte  rutiner,  du  selv 
kan  lægge  ind  i  dine 
egne  programmer. 

Tastlyd 

Maskintype:  C64 
Gevinst:  100  kr. 

Har  du  altid  drømt  om  at  have  et  tastatur  magen  til  Lambda’ens. 
dvs.  med  lyd  hver  gang  du  trykker  på  en  tast?l  I  så  fald  kan  du  ind¬ 
taste  dette  program,  og  du  får  således  lyd  på  dine  taster. 

J.  Madsen 

10  FOR  T=49152  TO  49184 

15  :  READ  A:  POKE  T,A:  CHK=CHK+A 

20  NEXT  T 

25  IF  CHKO4014  THEN  PR  I  NT"DATAFE  J  L  ! 
30  DATA  120,169,  13,141,  20,  3,169, 

192,141,  21,  3 

40  DATA  88,  96,165,197,201,  64,240, 

10, 169,255, 141 

50  DATA  24,212,169,  0,141,  24,212, 

76,  49,234,255 

Tempotester 

Maskintype:  C64 
Gevinst:  100  kr. 

Programmet  måler,  hvor  hurtig  du  er  til  at  skrive  alfabetet.  Er  du 
hurtigere  end  programmøren,  vil  du  få  ‘highscore’.  ellers  får  du 
en  paptud. 

Det  lyder  lidt  underligt,  men  når  du  har  tastet  det  ind  og  prøvet 
det.  så  er  det  faktisk  meget  simpelt! 


5  PRINT  CHR*1147) 

10  LET  H=40 

20  PR1NT”PRESS  SPACE  TO  START" 

30  POKE  198,0:WA1T  198,1:P0KE  198,0 
40  TI $="000000" 

45  PRINT  CHR$ ( 147) "GO ! " 

50  FOR  N=65  TO  90 
60  :  PRINT  CHR$(N) ; 

70  :  GET  A$:IF  A$ <>CHR$ ( N ) THEN  70 
75  ;  PRINT"tCRSR  VENSTRE, RVS  ON)"; 

CHR$(N) ;"(RVS  OFF ) " ; 

80  NEXT  N 
85  PRINT 

90  PR1NT"TIME  : " ; T 1  $ : T  =  VALl T 1  $ ) 

100  PR1NT"FASTEST  :";H 
110  PRINT"DIFFERENCE: " ;T-H 
120  IF  T>H  THEN  PRINT"TRY  AGA 1 N  -  AM 
ATEUR" 

130  IF  T<H  THEN  H  =  T : PR  1 NT"OKAY .  YOY’ 
RE  GOOD" 

140  GOTO  20 


Søjlediaffram 

Maskintype:  C64  (Cl  28  og  VIC20) 

Gevinst:  1 00  kr. 

Mangler  du  en  metode  til  at  fremstille  højopløselige  søjler  i  et 
BASIC  program,  for  eksempel  hvor  der  samtidig  skal  ståen  masse 
tekst  på  skærmen?  I  så  fald  vil  dette  program  være  svaret  på  dine 
drømme. 

Programmet  laver  nemlig  en  højopløselig  søjle  hvorpå  skærmen 
du  ønsker  det. 

Skal  du  bruge  flere  søjler  samtidig,  kan  du  blot  lægge  rutinen  i  dit 
eget  program  som  en  subrutine,  hvor  du  sætter  højde,  x  og  y 
samt  farve,  før  du  kalder  den.  Det  gør  nemlig,  at  du  kan  tegne  lige 
så  mange  søjler  du  vil! 

Morten  Sørensen 

5  PRINT  CHR$(147) 

10  INPUT"X-KOORDINAT: ";X 
20  1NPUT"Y-K00RD1NAT:" ;Y 
30  INPUT"HOJDE  :";H 

40  1NPUT"FARVE  :";F 

45  PRINT  CHR$(147) 

50  DATA  100,111,121,98,248,247,227, 
160 

60  RESTORE 
70  FOR  A=1  TO  8 
75  :  READ  H(A) 

80  NEXT  A 

90  AD=983+Y»40+X:FV=55255+Y»40+X 
100  IF  H=0  THEN  POKE  AD,32:END 
110  IF  AD<1024  THEN  END 
120  IF  H>8  THEN  POKE  AD,Hl8) 

:POKE  FV, F :H=H-8:AD=AD-40:FV=FV-40 
:G0T0  100 

130  POKE  AD,H(H):P0KE  FV,F:END 
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Cursorset 

Maskintype:  C-64 
Gevinst:  1 00  kr. 

Denne  lille  listning  gør  det  muligt  at  sætte  cursoren  et  vilkårligt 
sted  på  skærmen.  Du  får  altså  en  slags  PRINT  AT  til  din  rådighed. 
Programmet  indtastes.  RUN'es  og  derefter  vil: 

-cx^ 

Sætte  cursoren  på  position  x  i  liniey.  Skal  du  f.eks.  skrive  'hejsa!' 
midt  på  skærmen,  skriver  du  blot: 

-c  16,13:  PRINT  "hejsa!" 

Ole  Christensen 


10  DATA  32,115,0,240,4,201,95,240,3, 
76,231,167,32,115,0,201,67 
20  DATA  240,3,76,8,175,32,52,192,202, 
134,214,169,13,32,210, 255, 32,52, 
192, 134, 211 

30  DATA  76,174,167,169,0,141,8,3,169, 
192, 141,9,3,96 

40  DATA  32,115,0,56,233,48,170,32, 

115,0,201, 58,240, 21 , 201 , 44,240, 17, 
56, 233, 48 

50  DATA  160,10,134,211,24,101,211, 
136,208,250, 170, 32, 1 15, O, 96 
60  FOR  A=49152  TO  49239 
70  :  READ  Cl :  POKE  A,Cl 
80  NEXT  A 

90  SYS  49193:REM*  START  CURSORSET 

Dk 

karaktersæi 

Maskintype:  C64 
Gevinst:  100  kr. 

Er  du  en  af  de  uheldige  stakler,  der  ikke  har  dansk  karaktersæt  i 
din  computer  (64'er).  Da  er  hjælpen  nær.  for  dette  program  giver 
dig  nemlig  danske  karakterer.  Der  er  tale  om  ægte  dansk  karak¬ 
tersæt.  dvs.  både  inverse  karakterer,  store  og  små.  Og  du  kan 
også  skifte  ved  Commodore  -I-  shift. 

Det  smarteste  ved  programmet  er,  at  det  ikke  stjæler  noget  fra 
din  sparsomme  BASIChukommelse.  Næh.  programmet  bruger 
hukommelsen  fra  adresse  501 76  og  frem.  Fra  adresse  501 76  lig¬ 
ger  skærmen! 

Det  betyder,  at  hukommelsen  fra  adresse  1 024  til  2023  kan  bru¬ 
ges  til  maskinkodeprogrammer  i  stedet. 

BEMÆRK.  TRYKKER  DU  RUNSTOP/RESTORE.  skal  du  i  blinde 
skrive: 

POKE  648,4 

Forat  kunne  se  hvad  derforegår.  Det  skyldes  netop,  at  skærmen  i 
det  danske  karaktersæt,  ligger  højt  oppe  i  hukommelsen. 

Forat  undgå,  at  de  danske  karaktererforsvinder  (ved  tryk  på  run- 
stop/restore).  kan  du  f.eks.  skrive: 

POKE  808.251 

Det  sætter  simpelt  hen  Runstop/restore  ud  af  funktion. 

J.  Christensen 


11000  DATA  120,169,12,141,24,3,169, 

192. 141 . 25. 3. 96. 169. 4. 141 . 136. 2, 
32,71, 254, 160 

11001  DATA  ,177,2,145,4,200,165,7, 

201 , , 208,5, 196,6,208, 1,96,192,0, 
208,236, 230,3 

11002  DATA  230,5,198,7,76,20,192,0 

11003  FOR  F=49152  TO  49203 : READ  A 
:POKE  F,A:NEXT  F : DATA  160,0,173, 

134.2,  145,2,20, 165, 5 

11004  DATA  201,0,208,5,196,4,208,1, 
096,  192,  , 208,235,230, 3, 198, 5, 76, 
52, 192 

11005  FOR  F=49204  TO  49233;READ  A 
:POKE  F,A:NEXT  F:POKE  1, 

PEEK(1)0R  1:P0KE  648,196 

11006  MC=53272 : POKE  MC, 

(PEEK(MC)AND  240)0R  12 

:POKE  MC, tPEEK(MC)AND  15)0R  16 

11007  POKE  56576, ( PEEK t 56576 ) AND  252 
)0R  O 

11008  POKE  56334, PEEK156334) AND  254 
:POKE  l,PEEKll)AND  251:P0KE  2,0 
:POKE  3,208:POKE  4,0 

11009  POKE  5,240:P0KE  6,255:P0KE  7,15 
:SYS  49172:P0KE  l,PEEKCl)OR  4 

11010  POKE  56334, PEEKC56334)0R  1 

11011  FOR  F=61656  TO  61679:READ  A 
:POKE  F,A;NEXT  F 

11012  DATA  63,102,102,127,102,102, 
103,0 

11013  DATA  62,99,103,107,115,99,62,0 

11014  DATA  28,0,62,99,99,127,99,0 

11016  FOR  1=1  TO  6:READ  D 
:FOR  N=0  TO  7;READ  T 

11017  POKE  D*8+256x240+N, T 

: POKE I D+ 128) »8  +  256 »240  +  N,  255-T 
:NEXT  N,  I 

11018  FOR  1=1  TO  3:READ  D 
:FOR  N=0  TO  7 ; READ  T 

11019  P0KE(D+64) »8+256«240+N, T 

: POKE (D+ 192 ) »8+256»240+N, 255 -T 
:NEXT  N, I 

11025  PR1NT"ÆAØ-|-|S  "  :STOP 
11100  DATA  27,63,108,108,127,108,108, 
111,0 

11110  DATA  28,29,54,103,107,115,54, 
92,0 

11120  DATA  29,12,0,28,54,99,127,99,0 
11130  DATA  283,0,0,55,13,63,108,63,0 
11140  DATA  284,0,0,62,103,107,115,62, 
O 

11150  DATA  285,12,0,60,6,62,102,62,0 
11200  DATA  283,63,108,108,127,106, 
108,  111,0 

11210  DATA  264,29,54,103,107,115,54, 
92,0 

11220  DATA  285,12,0,28,54,99,127,99,0 


TAST -7 


TAST 


Uffl! 

Programtips 

Maskintype;  C128 
Gevinst:  100  kr. 

Der  er  ikke  så  meget  at  sige  om  programmet:  læs  alie  linierne,  og 
du  vil  få  et  programmeringstips  til  Commodorel28. 

Brian  Andersen 


10  REM 
12  REM 
14  REM 
16  REM 
18  REM 
20  REM 
22  REM 
24  REM 
26  REM 
28  REM 
30  REM 
32  REM 
34  REM 
36  REM 
38  REM 


»»  PROGRAMMERINGSTIPS  ** 
TIL  C0MM0D0RE128 

» 

»  HVIS  MASKINEN  GAR  I  * 

COMA,  SA  PRØV:  » 

»  TRYK  RUN/STOP  NED  OG  » 

*  TRYK  SAMTIDIG  RESET.  * 

*  SLIP  DEREFTER  RESET,  * 

*  OG  MASKINEN  V I L  GA  * 

*  OVER  I  MONITOREN.  » 

«  TRYK  NU  ’X’  OG  PRO-  » 
»  GRAMMET  ER  REDDET!  * 


fO  fingeriær 

Maskintype:  Commodore 
Gevinst:  1 00  kr. 

Tja,  kan  du  ikke  skrive  på  maskine  med  tifingersystemet,  så  er  der 
her  et  program  der  kan  lære  dig  det.  Programmet  viser  simpelt 
hen  hvilke  fingre  der  skal  lægges  hvor.  HUSK  dog,  at  udgangsstil¬ 
lingen  fortifingersystemet  en  ASDF  JKLÆ,  derefter  er  det  meget 
let  at  bruge  programmet.  Du  skal  nemlig  taste  en  del  tegn  ind. 
Programmet  laver  fra  1  til  6  tilfældige  linier,  som  du  skal  ind¬ 
taste.  Derefter  beregner  det  en  gennemsnitshastighed  og  fejlpro¬ 
centen. 


1  GOSUB  13: PRI NT" (HOME, CRSR  NED4, 

SPACE2)HV0R  MANGE  LINIER  VIL  DU  S 
KRIVE  (l-6)tCRSR  NED6 1 " 

2  GET  A$:1F  A$<"1"0R  A$>”6"  THEN  2 

3  Q=VAL(A$) :FOR  A=1  TO  Q 

:FOR  B=1  TO  40 : C= I  NT ( RND ( 1 ) *47 ) +44 
:IF  059  AND  C<64  OR  C  =  45  THEN  C  = 
32 


4  A$ ( A) =A$ ( A ) +CHR$ (C) : NEXT  B,A 

;FOR  A=1  TO  5 : PR  I NT"STARTER  OM  "6 
-A"  SEK.”:FOR  B=0  TO  666 

5  NEXT  B,A:GOSUB  13:F0R  A=1  TO  Q 

:PRINT  A*tA) :NEXT:TI$=”000000" 
:Z=55416 

6  FOR  A=1  TO  Q:FOR  B=0  TO  39 

7  PRINT" tHV 1 D, HOME^ ”T I  $ :GET  A$ 

:IF  A$=""THEN  7 

6  POKE  Z+B,1:IF  A$ <>M 1 D* ( A$ t A J , B + 1 , 
IJTHEN  POKE  Z+B,6:F=F+1 

9  NEXT :Z=Z+80: NEXT :H=(40*Q-10*FJ/ (TI 

/60) :G=F/ (Q*40J *100:GOSUB  13 
:POKE  53281 , 14 

10  POKE  53280, 6:PRINT"ANSLAG  PR.  SEK. 
:";H:1F  H>HH  THEN  HH=H 

11  PRINT"(CRSR  NED)FEJLPROCENT  :";G 
:1F  HH  THEN  PRINT"(CRSR  NED2)HØJE 
STE  ANSLAG/SEK. : " ;HH 

12  INPUT" (CRSR  NED2)TAST  RETURN  ";A 
:FOR  A=1  TO  6: A$ ( A; ="" :NEXT:F=0 
:GOTO  1 

13  PRINT" tCLR, CRSR  NED16,CRSR  H0JRE2, 
RVS  ON,  HV  1D)<-(CRSR  HOJRE, 
S0RT)1(CRSR  H0JRE)2(CRSR  H0JRE)3( 
CRSR  H0JRE)4tCRSR  H0JRE)5tCRSR  HO 
JRE)6tCRSR  H0JRE)7(CRSR  H0JRE)8(C 
RSR  H0JREJ9(CRSR  H0JRE)0(CRSR  HOJ 
RE)+tCRSR  HOJRE)-(CRSR  HOJRE)0(CR 
SR  HOJRE, SPACE, CRSR  HOJRE, SPACE, 
CRSR  H0JRE2)F1" 

14  PR1NT"(CRSR  NED, CRSR  H0JRE2, 

RVS  ON, HV I D, SPACE2, CRSR  HOJRE, 
SORT)Q(CRSR  HOJRE)W(CRSR  HOJREJEC 
CRSR  HOJRE)R(CRSR  HOJRE)T(CRSR  HO 
JRE)Y(CRSR  HOJRE)U(CRSR  HOJREM(C 
RSR  HOJREJO(CRSR  HOJRE)P(CRSR  HOJ 
RE)@(CRSR  HOJRE)*(CRSR  HOJRE)T'(CR 
SR  HOJRE, SPACE2, CRSR  H0JRE2)F3" 
:POKE  53281 , 10:P0KE  53280,2 

15  PRINT"(CRSR  NED, CRSR  H0JRE2, 

RVS  ON, SPACE, CRSR  HOJRE, SORT, 
SPACE, CRSR  HOJRE)A(CRSR  HOJRElStC 
RSR  HOJRE)D(CRSR  HOJRE)F(CRSR  HOJ 
RE)G(CRSR  HOJREJHCCRSR  HOJRE)J(CR 
SR  HOJRE>K(CRSR  HOJRE)L(CRSR  HOJR 
EJ: (CRSR  HOJRE); (CRSR  HOJRE)=(CRS 
R  HOJRE,  SPACE)*-*  (CRSR  H0JRE2, 

HV I D)F5" 

16  PRINT" (CRSR  NED. CRSR  H0JRE2, 

RVS  ON, SPACE, CRSR  HOJRE, SORT, 
SPACE2,CRSR  HOJRE)Z(CRSR  HOJRE)X( 
CRSR  HOJRE)C(CRSR  HOJRE)V(CRSR  HO 
JRE)B(CRSR  HOJRE)N(CRSR  HOJRE)M(C 
RSR  HOJRE), (CRSR  HOJRE). (CRSR  HOJ 
RE)/(CRSR  HOJRE, SPACE2, CRSR  HOJRE, 
HVID, SPACE, CRSR  HOJRE, SPACE, 

CRSR  H0JRE2)F7" 


8 -TAST 


TRST 


17  PR1NT"(CRSR  0P7,CRSR  H0JRE4, 

SPACE)  |(CRSR  HOJRE)  |(CRSR  HOJRE)  | 
(CRSR  H0JRE3)  |  ( CRSR  H0JRE3)  ((CRSR 

HOJRE)  HCRSR  HOJRE)  |" 

18  PRINT  "(CRSR  HOJRE4, 

SPACE)  S  H  S (CRSR  H0JRE2)  S^CRSR 
H0JRE2)  S  h  S” 

19  PRINT  "(CRSR  HO J RE6 )  |  ( CRSR 

HOJRE)  I  (CRSR  HOJRE)  1(CRSR  H0JRE3) 

I  (CRSR  H0JRE3)  |(CRSR  HOJRE)  1(CRSR 

HOJRE)  I" 

20  PRINT  "(CRSR  HO  J  RE6  )  S  S  i-,  ( 

CRSR  H0JRE2)  ‘-,(CRSR  H0JRE2)  >-1  S  H " 


rameteren  er  1  vil  XRSX  være  aktiv.  Ug  hvis  parameteren  erO,  vil 
XRSX  ikke  være  aktiv  (let  ikke?). 

SPEEDDISC,  (0/1 )  Speeddisc  sætter  hastigheden  på  diskdrevet 
Maskintype:  Amstrad  CPC464  og  6128  op  med  ca.  25%.  Når  parameteren  er  1  vil  turboen  fungere,  ellers 

Gevinst:  500  kr.  ikke. 

Programmet  laver  nogle  nye  og  smarte  kommandoer  til  Am-  DEEK.  (adresse)  Denne  kommando  fungerer  som  en  dobbelt 
strad'en.  Det  fungerer  både  på  disk  og  bånd  (naturligvis  und-  peek.  Det  betyder,  at  der  kan  peekes  et  16  bit  tal.  F.eks.  vil: 
tagen  SPEEDDISC).  DEEK,&AE7B  udskrive  HIMEM  (på  en  CPC464). 

De  nye  kommanduer  en  DOKE,  (adresse),  (værdi)  Denne  kommando  fungerer  som  en 

)(RS)(.  (o/l)  extended  RSX.  Denne  kommando  laver  alle  RSX  dobbelt  poke.  Skal  man  f.eks.  lægge  værdien  65535  ned  i  adresse 
kommandoer  om,  så  de  har  samme  syntax  som  på  en  CPC61 28.  1 000  og  1 001 .  vil:  DOKE  1 000,65535  simpelt  hen  gøre  det  for 

F.eks.  ERA,  "GammeLbak"  og  REN.  ’ny.fil',  'Gammel.f!!".  Hvis  pa-  dig.  Ikke  noget  med  at  udregne  Hl-  og  LOW-byte. 

10  ’  Amstrad  464/6128 
20  ’  Smart  Rsx 

30  ’  (C)  1987 

40  ’  GROGS  Utilities 
50  ’ 

60  checU  =  0:  MEMORY  8<A3FF:F0R  a=8<:A400  TO  BcA5D2:READ  a*:  b=VAL  (  "Bt" +a$)  :  POKE  a,b:chec 
k=check+b: NEXT 

70  IF  checU<>48706  THEN  PRINT  "Data  Fejl  !"  ELSE  CALL  BtAAOO 

80  DATA  01,2B,A4,21,09,A4,C3,D1,BC,00,00,00,00,2A,2A,2A,20,43,50,43,20,34,36,34, 
20, 42, 45, 44, 52, 45, 20, 45, 4E, 44, 20, 43, 20, 36, 34,20 

90  DATA  2A, 2A,2A, 39, A4, C3, 4E, A4, C3, 82, A4,C3, CD, A4,C3, E2, A4,53, 50, 45, 45, 44, 49,53, 
C 3, 44, 45, 45, CB, 44, 4F, 4B, C 5, 58, 52, 53, D8, 00, FE, 01 

100  DATA  C2, AA, A5,DD,7E,00,FE,00,20, 10,21,61,A4,DF,7F, A4,C9,32,00,FA,00, AF,OF,OC 
, 01 , 03, FE, 01 , C2, AA, A5, 21 , 76, A4, DF, 7F, A4, C9, 23, 00 

110  DATA  C3, 00, 01 , 01 , OA, 00,03, OD, C6, O7,FE,01 , 28, 18,FE, 02, C2, AA, A5, DD, 66, 03, DD,6E 
, 02, 5E, 23, 56, DD, 66, 01 , DD, 6E, 00, 73, 23, 72,C9, FE, 01 

120  DATA  C2, AA, A5, 21 , BF, A4, CD, 8A, A5, DD, 66,01 , DD, 6E,00, 23, 7E, CD, 94, A5, 2B, 7E, CD,94 
, A5, 21 , CA, A4. C3, 3A, A5, 56, 61 , 6C, 75, 65, 20,69, 73, 20 

130  DATA  26,FF,0A,0D,FF,FE,02,C2,AA, A5,DD,56,01,DD,5E,00,DD,66,03,DD,6E,02,73,23 
, 72, C9, FE, 00, 23, 63, FE, 01 , C2, AA, A5, DD, 7E, OO, FE, 01 

140  DATA  28,57,FE,00,C2, AA,A5,21,01, AC,7E,FE,00,21,2F, A5,CA,8A,A5,21,74, A5, 11,04 
, AC, 01 , 03, 00, ED, BO, 21 , 14, A5, C3, 3A, A5, 45,58, 54, 45 

150  DATA  4E, 44, 45, 44, 20, 52, 53, 58, 20, 76, 31 ,2E, 31 , 20,69, 73, 20, 4F,  46, 46,  OD,  OA, FF,  45 
, 58, 54, 45, 4E, 44, 45, 44, 20, 52, 53, 58, 20, 76, 31 , 2E, 31 

160  DATA  20,69,73,20,4F,4E,0D,OA,FF,21,Ol,AC,7E,FE,00,F5,21,2F,A5,CD,8A, A5,F1,C8 
, 21 , 6F, A5,  1 1 , 33,  BF,  01  ,  IB,  OO, ED, BO, 3E, C3, 32, 04, AC 

170  DATA  21 , 33, BF, 22, 05, AC, C9, 7B, FE, OD, 28,03, C9, C9, C9, 2A, 34, AE, 23, E7, FE, 7C, 28,04 
, FE, 83, 20, FO, 2A, C2, BO, Dl , Dl , C9, 7E, FE, FF, C8, CD, 5A 

180  DATA  BB,23, 18,F6,5F, IF, IF, IF, 1F,CD,9D,A5,7B,E6,0F,C6,30,FE,3A,33,02,C6,07,C3 
, 5A, BB, 21 , BO, A5, C3, 8A, A5, 50, 61 , 72, 61 , 6D, 65, 74, 65 

190  DATA  72, 20, 65, 72, 72, 6F, 72, OD,OA, FF,2A, 2A, 2A, 20, 4B, 30, 42, 20, 41 , 4D 
200  DATA  49, 47, 41 , 20, 2A, 2A, 2A 


21  PRINT  "(CRSR  HOJ RE7 )  |  ( CRSR 

HOJRE)  I  (CRSR  HOJRE)  |(CRSR  H0JRE3) 

I  (CRSR  H0JRE3)  |(CRSR  HOJRE)  |(CRSR 
HOJRE)  I" 

22  PRINT" (CRSR  H0JRE7)  S  H  S (CRSR  HO 
JRE2)  HfCRSR  H0JRE2)  S  S  H  " 

23  PRINT" (CRSR  H0JRE8)  |(CRSR  HOJRE)  | 
(CRSR  HOJRE)  I  (CRSR  H0JRE3)  |(CRSR 
H0JRE3)  I  (CRSR  HOJRE)  |(CRSR  HOJRE) 

I" 

24  PRINT  TAB(8)"(CRSR  NED, SORT, 

RVS  ON, SPACE18, HOME, CRSR  NED2)" 

: RETURN 


TAST -9 


TfiST 


Datamaker 

hex 


Halen  på  æslel 

Maskintype:  C64 
Gevinst:  1 00  kr. 

Her  er  så  et  lille  spil.  Spillet  går  ud  på,  at  du  skal  sætte  halen  på 
æslet.  Æslet  står  altid  midt  på  skærmen,  men  du  står  forskellige 
steder  hver  gang. 

Du  kan  se  på  skærmen  hvor  du  er,  men  det  er  snyd.  Du  skal  sim¬ 
pelt  hen  lytte  dig  frem  til  æslet.  Det  kan  sagtens  lade  sig  gøre,  for 
der  er  en  lyd  i  højttaleren,  som  bliver  højere  og  højere,  lige  indtil 
du  rammer  æslet. 

Birthe  Jensen 


10  POKE  53281, 0:P0KE  53280,0 

: PRINT” (CLR) "CHR$ ( 142)CHR$ (8) 

20  L=54272:  FOR  1=0  TG  23:  POKE  L+ I , O 
:NEXT:  POKE  L+1,5:  POKE  L+6,243 
30  1 =RND( -TI  )  :DEF  FNT ( X J  =  1  NT  C X«RND ( 1 
)  ) 

40  X1=19:Y1=12 

100  PRlNT"tCLR}":POKE  55296 +X 1 +40* Y 1 , 
1:P0KE  1024+X1+40»Y1 , 94 
110  X=FNTl 10) +30»FNT(2) 

:Y=FNT(5)+20»FNT(2) :POKE  L+4,17 
120  TI $=”000000” 

200  T=PEEK( 197) :X=X+ (T=20  AND  X>0)-( 
T=31  AND  X<39) : Y=Y+ (T=14  AND  Y>0) 
-(T=18  AND  Y^24) 

210  POKE  1024+X+40* Y , 90 

220  A= ( 1+ABS(X-X1 ))«(!+ ABS(Y-Yl)) 

:POKE  L+1, 150-A/2: IF  A>1  THEN  200 
230  POKE  L+4,16:P0KE  L+1,25 
240  FOR  1=0  TO  9:  POKE  L+4,33 
:POKE  L+4,32:  FOR  J=  O  TO  99 
:NEXT  J ,  1 

250  PR1NT”DU  KLAREDE  DET  PA”lNTcTI/6 
O)”  SEKUNDER.” 

260  PRINT’WIL  DU  SPILLE  IGEN?"; 

:POKE  198,0:POKE  204,0 
270  GET  1$:1F  1$<.>”J"AND  1$<>”N”THEN 
270 

280  POKE  204,1:PRINT  1$ 

:IF  I$="J”THEN  100 

500  PRl NT” (HOME) ” ;PEEK( 197) " tCRSR  VE 
NSTRE, SPACE2) ” :GOTO  500 


Maskintype:  C-64 
Gevinst:  300  kr. 

Dette  program  er  simpelt  hen  et  MUST  for  alle.  der  programme¬ 
rer  maskinkode,  og  gerne  vii  indsende  til  bl.a.  TAST.  Det  skyldes, 
at  programmet  laver  dit  maskinkodeprogram  om  til  datalinier. 

Oven  i  købet  nogle  ganske  tjekkede  linier,  for  hver  iinie  har  sin 
egen  checksum  -  det  sikrer,  at  du  indtaster  det  hele  rigtigt!  Der¬ 
udover  laver  programmet  datalinierne  som  hexadecimal,  dvs. 
hvert  datasæt  fylder  to  tegn,  og  det  er  tegn  fra  A  til  P.  på  den 
måde  skal  man  ikke  knække  alle  fingrene  for  at  nå  de  taster  man 
skal  bruge  til  dataene. 

Anders  Munch 

5  INPUT" (CLR)DATA  FRA  ADR.  ”;A 

:PRINT”(CLR) 10  A=”;A 
: PRINT” 100  A=” ; A : PR  1 NT”RUN10" 

6  POKE  631,19:P0KE  632,13:P0KE  633,13 

:POKE  634,13:P0KE  198,4  :END 

10  A=  49152 

11  PRINT” (CLR)DATA  FRA  ADR.”;A 

12  1NPUT”(CRSR  NED, SPACE)-  OG  TIL  (I 
NCL. ) : " ; AS:L=200:L$=”200  DATA  " 

15  V=PEEK(A) : L$=L$+CHR$ ( V/ 16+65 ) +CHR 
$((V  AND  15) +65) :C= C2»C  OR  V)-(2« 

C  AND  V) 

20  C=tC  AND  255  )- (0255  ):  A  =  A+ 1 
:  1 F  A<.AS  THEN  40 

25  PRINT” (CLR) ” ;L$ ; ” , " ;M 1 D$ (STR$ (C)  , 
2)  ”;CHR$(34)  ;  :POKE  212,. 

:PR1NT”(CRSR  VENSTRE ,  1  NST )” ; 

CHR$ (34) 

30  PRINT"(CRSR  NED)OK.  SLET  NU  LINIE 
10-55” ; 

35  POKE  631,19:P0KE  632,13:P0KE  198,2 
:END 

40  ON- (LEN(L$ )<74+3» ( AS-A<2) )  GOTO  15 
:  PRI NT” (CLR) ” ;L$ ; ”  ,  ” ; 

M  I  D$ ( STR$ (C ) , 2) 

45  PRI NT”A=” ; A ; " : AS=" ; AS ; ” :L=”  ;L  +  5  ;  ” 
:C=” ;C; ” :G0T055” 

50  POKE  631,19:P0KE  632,13 

:POKE  633,13:P0KE  198,3:END 
55  L$=STR$ (L) +”DATA  ”:GOTO  15 
100  A=  49152 

110  PRINT” (CLR) JEG  SKRIVER  DATA  FRA 
ADR.";A:READ  L$,C:PRINT  A"(CRSR  V 
ENSTRE) ” ; 

120  FOR  T=1  TO  LEN(L$)/2 

:V=(ASC(MID$(L$,2»T-1))-65)*16+AS 
C(MID$(L$,2»T) )-65 
130  H=(2*H  OR  V)-(2»H  AND  V) 

:H=(H  AND  255)-(H>255) 

:POKE  A+T-1 , V :PRINT” . ” ; : NEXT  T 
:PRINT 


10 -TAST 


TAST 


140  IF  COH  THEN  PR  1  NT" DATAFE J L  I  LI 
NIE  " ;PEEK(63J +256»PEEK(64) :END 
150  A=A+LEN ( L$ > /2 : READ  L$ 

:PR1NT  A"(CRSR  VENSTRE)"; 

:1F  L$<i>""THEN  READ  C :  GOTO  120 


Edit- 

kommandoer 

Maskintype:  C64 
Gevinst:  1 00  kr. 

Ligesom  ovenstående  program,  laver  dette  nogle  nye  BASIC- 
kommandoer.  Disse  kommandoer  gør  det  lidt  lettere  at  pro¬ 
grammere. 

De  nye  kommandoer  en 

«-i  Der  tænder  cursoren  og  venter  på  et  tastetryk.  og  slukker  cur- 
soren  igen.  Det  tegn  der  blev  trykket,  kan  læses  med  en  GET  A$. 
Hvor  A$  altså  vil  være  det  nedtrykkede  tegn. 

-•r  X,  Der  sætter  repeatmode. 
x-0  betyder  Cursortaster  repeterer. 

X— 1  betyder  INGEN  taster  repeterer. 
x-2  betyder  ALLE  taster  repeterer. 

— f  X,  Fill.  Denne  kommando  skriver  x  bytes  med  chr$(32).  der  er 
mellemrum.  Det  vil  sige.  at  skriver  du  40.  vil  du  skrive  40  mel¬ 
lemrum  på  skærmen  (og  det  er  det  samme  som  at  slette  40 
tegn). 

Ligeledes  vil  «-f  240.  slette  seks  skærmlinier  (fra  cursor  positio¬ 
nen). 

J.  Christensen 


I  REM  TRE  NYE  BAS  1 CKOMMANDOER 

3  REM  <-l  INKEY  <-R  X,  REPEAT 

4  REM  <-F  X,  FYLD 

10  DATA  32,115,0,201,0,240,249,201 

II  DATA  95,240,4,76,231,167,234,160 

12  DATA  0,32,115,0,201,73,240,11,201 

13  DATA  82,240,25,201,70,240,37,76 

14  DATA  231,167,162,0,134,198,134,204 

15  DATA  232,228,198,208,252,134,198 

16  DATA  134,204,76,228,167,32,155,183 

17  DATA  138,42,42,42,42,42,42,141,138 

18  DATA  2,76,228,167,32,155,183,169 

19  DATA  32,32,210,255,202,224,0,208 

20  DATA  248,76,228,167,120,169,32,141 

21  DATA  8,3,169,203,141,9,3,88,96,120 

22  DATA  169,228,141,8,3,169,167,141 

23  DATA  9,3,88,96 

24  FOR  F=52000  TO  52110:READ  A 
:POKE  F, A:CH=CH+A:NEXT  F 

25  IF  CHO14035  THEN  PR1NT"FEJL  I  DA 
TA ! " : STOP 

26  SYS  52085: REM  x  START  NY  BASIC 


SrroHtekst 

Maskintype:  C64 
Gevinst:  100  kr. 

Her  er  et  nyt  scrollprogram.  Dette  program  er  temmelig  avance¬ 
ret,  idet  man  kan  scrolle  op  til  1  K(1024tegn)tekst.  Denne  tekst 
ligges  sidst  i  programmet  (der  hvor  der  nu  stån  32.20. 1 . 1 9.20). 
Som  du  ser.  skal  den  lægges  i  datalinier,  og  med  Commodores 
egne  koder.  Hvis  du  ønsker  at  ændre  teksten,  skal  du  huske  at 
ændre  tallene  i  linierne  1 5  -  24. 1 FOR-NEXT  løkkerne  skal  tallet  4 
rettes  til  (antallet  af  tegn)-l .  Dvs.  for  1 00  tegn  skriver  du:  99. 
I  linie  24  skal  du  rette  A— A-F1 00.  HUSK  endelig  også  at  dimen¬ 
sionere  A  til  antallet  aftegn.  Skal  du  f.eks.  have  en  scrolltekst  på 
1 00  tegn.  så  skriv  (f.eks.  linie  1 4)  1 4  DIM  A(  1 00)  og  du  vil  nu  kun¬ 
ne  bruge  din  scrolllinie. 

J.  Hansen 


O  REM  SCROLL-SKAERM  AF  J . HANSEN 

1  REM  SCROLL-TEkSTEN  SKAL  LIGGES 

2  REM  FRA  49152  TIL  50176 

5  PRINT"(CLR,HVID,RVS  ON)START  =  SYS 

52992(RVS  0N)";P0KE  53280,0 
:POKE  53281,0 

6  PRINT"(RVS  ON)DEAKTI VERES  MED 

:  SYS  53084(RVS  OFF)" 

10  FOR  A=52992  TO  53096 

11  :  READ  S:  POKE  A,S:CH=CH+S 

12  NEXT  A 

15  FOR  N=0  TO  4 

16  :  READ  AtN) 

17  NEXT  N 

20  A=49152 

21  FOR  N=0  TO  4 

22  :  POKE  A+N,A(N) 

23  NEXT  N 

24  A=A+5:  IF  A>50176  THEN  A=49152:END 

25  GOTO  21 

100  DATA  169,192,141,25,207,169,0,141 
105  DATA  24,207,169,21,141,20,3,169 
110  DATA  207,141,21,3,96,162,1,189 
115  DATA  0,192,157,191,7,232,224,41 
120  DATA  208,245,238,24,207,173,24, 
207 

125  DATA  201,0,208,3,238,25,207,173 
130  DATA  25,207,201,196,208,5,162,192 
135  DATA  142,25,207,162,0,173,255,206 
140  DATA  157,191,219,232,224,41,208, 
248 

145  DATA  160,0,162,0,232,224,0,208 
150  DATA  251,200,192,26,208,244,238, 
255 

155  DATA  206,76,49,234,120,169,49,141 
160  DATA  20,3,169,234,141,21,3,88,96 
170  REM  *  TEKST 
175  DATA  32,20,1,19,20 


TAST  -  11 


TAST 


Farve" 

kommandoer 

Maskintype:  C64 
Gevinst:  100  kr. 

Dette  korte  maskinkodeprogram  giver  dig  tre  nye  farve- 
kommandoer.  Det  er  jo  temmelig  meget  nemmere  at  skrive:  — b 
S,  for  at  få  borderen  grøn.  end  at  skrive  POKE  53280.5,  ikke? 
De  kommandoer  programmet  stiller  tilrådighed  en 
-b  X,  Borderfarven  sættes  til  x.  HUSK  kommaet  efter  x. 

<-v  X.  Videofarven  sættes  til  x.  HUSK  kommaet  efter  x. 

~-p  X,  Skriftfarven  (pen)  bliver  farve  x.  HUSK  kommaet  efter  x  et. 
Da  programmet  lægger  kommandoerne  i  forlængelse  af  den  nor¬ 
male  BASIC,  vil  det  ikke  betyde  noget,  hvis  du  taster  RUNSTOP/ 
RESTORE. 

Programmet  har  dog  een  begrænsning,  det  kan  ikke  forstå  linier 
med  indledende  kolonner  (:).  derfor  skal  disse  linier  ændresi 

J.  Christensen 


1  REM  TRE  BAS ICKOMMANDOER 

2  REM  »  STARTES  MED:  SYS52062 

3  REM  *  STOPPES  MED;  SYS52075 

6  REM  *  4-B  X,  =  BORDER  FARVE  X 

7  REM  »  <-V  X,  =  SKÆRM  FARVE  X 

8  REM  *  X,  =  SKRIFT  FARVE  X 

9  DATA  32,115,0,201,0,240,249,201,95 

10  DATA  240,4,76,231,167,234,160,0 

11  DATA  32,115,0,201,66,240,11,201 

12  DATA  60,240,16,201,86,240,21,76 

13  DATA  231,167,32,155,183,142,32,208 

14  DATA  76,228,167,32,155,183,142,134 

15  DATA  2,76,228,167,32,155,183,142 

16  DATA  33,208,76,228,167,120,169,0 

17  DATA  141,8,3,169,203,141,9,3,88 

18  DATA  96,120,169,228,141,8,3,169 

19  DATA  167,141,9,3,88,96 

20  FOR  F=52000  TO  52087: READ  A 
:POKE  F, A:CHK=CHK+A:NEXT  F 

21  IF  CHKO10527  THEN  PRINT"FEJL" 

:  STOP 

22  SYS  52062:  REM  »  START  NYE  KOMM. 


Der  er  så 
yndigtø** 

Maskintype:  C64 
Gevinst:  1 00  kr. 

Her  får  du  simpelt  hen  et  program,  som  spiller  nationalmelodien. 

Det  lyder  oven  i  købet  rigtigt. 

Står  du  og  skal  bruge  en  smart  afslutning  (eller  begyndelse)  på  et 
program,  så  vil  det  da  være  tjekket  at  bruge  nationalmelodien, 
ikke? 

Peter  Frost 

5  PRINT  CHR$(147j 

10  PRINT"  »innnnt  *  MX**  innnt  *  *  * 

20  PRINT"  *  DER  ER  ET  YNDIGT 

LAND 

30  PRINT"  *  »innnnnn*  *  innnnnnn* 

40  A=54272:  FOR  B=1  TO  83 

:POKE  A+24,15:READ  C:POKE  A+5,15 
:POKE  A+6,240:P0KE  A,24 
50  POKE  A+1,C:P0KE  A+4,33:READ  D 

:FOR  E=1  TO  D# 100 : NEXT : POKE  A+4,32 
55  IF  B=83  THEN  END 
60  IF  B=6  THEN  GOSUB  200 
70  IF  B=13  THEN  GOSUB  190 
80  IF  B=25  THEN  GOSUB  200 
90  IF  B=33  THEN  GOSUB  170 


100 

1  F 

B  =  40 

THEN 

GOSUB 

180 

110 

1  F 

B  =  47 

THEN 

GOSUB 

160 

120 

IF 

B  =  54 

THEN 

GOSUB 

190 

130 

I  F 

B  =  62 

THEN 

GOSUB 

170 

140 

IF 

B  =  69 

THEN 

GOSUB 

180 

150 

I  F 

B  =  76 

THEN 

GOSUB 

180 

160 

NEXT  B 

170 

FOR 

E=1 

TO  150:NEXT 

E:RETURN 

180 

FOR 

E=1 

TO  200: NEXT 

E: RETURN 

190 

FOR 

E=1 

TO  400: NEXT 

E: RETURN 

200  FOR  E=1  TO  600 : NEXT  E: RETURN 
210  DATA  15,2,23,6,23,2,19,4,15,4,25, 
8,  15, 2, 30, 6, 30, 2,  28,  4, 25, 4, 25, 4, 

22.4.22.4 

220  DATA  14,6,14,2,15,4,17,4,19,4,21, 

4.22.4.25.4. 22 .8.21.8.22.8. 22 . 2 , 

28 , 6 , 28 , 2 

230  DATA  25,4,22,4,22,6,29,2,29,4,18, 

4.24.6.24.2.24.4.24.4.24.8.23.5, 

22.2.22. 4 

240  DATA  21,4,20,4,19,4,25,4,30,6,30, 

2.28.2.25.2.25.4.22.8. 14.5. 15.6, 
22,4,28,6 

250  DATA  28,2,25,4,22,4,22,6,29,2,29, 
4 , 18,4,24,6, 24 , 2 , 24 ,4,24,4, 24 , 8 , 
23, 5, 22, 2 

260  DATA  22,4,21,4,20,4,19,4,25,4,30, 

6. 30. 2,  28, 2, 25, 2, 25, 6, 22,  10,  14,6, 
15,  12 


12  -  TAST 


TAST 


Ugningsløser 

Maskintype:  C64/C128/PLUS4An[C20 
Gevinst:  1 00  kr. 

Står  du  og  skal  løse  en  "uløselig"  ligning.  Så  er  programmet  be¬ 
stemt  noget  for  dig.  Hvorfor??  Fordi  du  blot  indtaster  den  svære 
ligning  i  programmet,  og  efter  noget  tid  vil  computeren  fortælle 
dig,  hvad  løsningen  er. 


Programmet  benytter  sig  af  sekantmetoden,  og  det  betyder,  at 
du  skal  indsætte  minium-og  maksimumsværdi  forx.  Jo  større  in¬ 
terval.  des  længere  tid  bruges  der. 

Skal  du  bruge  programmet  til  andre  maskiner  end  Commo- 
dore128,  så  skal  du  sikre  dig.  at  kommandoerne  "FAST"  og 
"SLOW"  samt  "Do"  og  "Loop"  findes  i  BASlC'en.  Ellers  skal  du  fjer¬ 
ne  disse  kommandoer  (det  betyder  kun.  at  programmet  er  lang¬ 
sommere). 

Leif  Hansen 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

195 

200 

210 

220 

230 

240 

250 

260 

270 

280 


INPUT"FlX;=  '';FUNK$ 

PRl NT" (CLR) 140  DEF  FNA(XJ=  ";FUNK$ 

PR  1 NT"RUN140" 

P0KE208, 3;P0KE842, 19:P0KE843, 13:P0KE844, 13: END 
DEF  FNA(X)=  5«XT'2-3*X-55 
DO 

INPUT"CGUL,  3  D0WN)NEDRE  GRÆNSE:";A1:  1F  AI=0  THEN 
INPUT  "ØVRE  GRÆNSE  IF  B1=0  THEN  Bl=10 

FAST:  REM  »  SLÅR  40-TEGNS  SKÆRM  FRA 
ROD  I  =  (  A  1  itFNA  CB  1  )  -B  1  ifFNAC  A  I  )  )  /  (FNA  (B  1  )  -FNA  t  A  I  )  ) 

CHAR  1 , 10, 3:PR1NTR0D1 

:  IF  FNA(A1 ) *FNA(R0D1 J >0  THEN  Al=RODl 
:  IF  FNA( Al ) »FNAtRODl )<=OTHEN  B1=R0DI 
:  IF  ABS(FNA(R0D1 ) )>0. 00005  THEN  190 
:  RDI  =  1  NT  IROD  1 » 1E4+ . 5 ) / 1E4 

:  SLOW 

:  SCNCLRiCHAR  1 , 10, 3, "RODEN  ER:  ":PR1NTRD1 
:  CHAR  1,10, 5, "NYE  GRÆNSER  (J/NJ" 

:  GETKEY  W$ 

LOOP  UNTIL  W$="N" 


AI  =1 


Swap  program 

Maskintype:  Amstrad  CPC464 
Gevinst:  1 00  kr. 

Har  du  altid  haft  problemer,  når  du  lige  skulle  udregne  noget, 
uden  at  ødelægge  det  program  der  netop  nu  ræser  linierne  igen¬ 
nem.  Eller  har  du  drømt  om  en  computer,  hvor  du  kunne  have 
flere  programmer  i  lageret  samtidig?! 

Kan  du  svare  ja  på  ovenstående  spørgsmål,  så  vil  dette  program 


lige  være  noget  for  dig.  for  programmet  gør  det  nemlig  muligt  at 
have  to  programmer  i  computeren  -  samtidigtl 
Programmerne  har  intet  med  hinanden  at  gøre.  og  det  betyder, 
at  du  kan  have  kaldt  en  variabel  A  i  begge  programmer  -  de  to 
variabler  vil  ikke  have  noget  med  hinanden  at  gøre.  Det  betyder 
igen.  at  du  blot  skal  programmere  som  normalt. 

Før  du  nu  begynder  at  taste  dine  egne  programmer  ind.  skal  du 
blot  vide.  at  en  CLEAR  vil  slette  ALLE  variabler! 

For  at  skifte  mellem  programmerne  skriver  du  SWAPPRG,  og 
straks  vil  du  arbejde  med  det  andet  program 


60  GOSUB  140 

70  MODE  l:  INPUT  “Indtast  startadd.  paa  orograrn  2:", start:  IF  start<0  THEN  start  = 
65536+start 

30  IF  start<1000  OR  start >40000  THEN  70 

90  tabel=8<A63A;  DEF  FN  1  (  x  )  =UNT  (  x  )  AND  tkFF  :  DEF  FNh  <  a )  =  I  NT  (  a/ 256  )  AND  BtFF 

100  POKE  tabel , FNl (star t ): POKE  tabe  1  + 1 , FNh ( star t ): POKE  t abe  1 +2 , FN 1 ( star t +  303 ) : P 

OKE  tabel +3, FNh (start+303) 

110  FOR  a=4  TO  10  STEP  2:P0KE  t abe  1 +a, FN  1  ( star t +  306 ): POKE  tabe  1 +a+ 1 , FNh ( star t +  3 

06) :next 

120  CALL  6iA600:  print:  print:  PRINT"øSWAPPRG  installeret" 

130  PR I NT: NEW 
140  check=0 

150  MEMORY  8iA5FF:FOR  a=6:A600  TO  8£A63B:READ  a$:  b=VAL  ( '’8c" +a$)  :  POKE  a,  b:  check=chec 
k+b: NEXT 

160  IF  check<>6053  THEN  PRINT  "Data  Fejl  ! " : END 
170  RETURN 

180  DATA  3E, C9, 32, 00, A6, 21 , 01 , A6, 01 , OE, A6, C3, Dl , BC , 13, A6, C3, IB, A6, 53 
190  DATA  57,41,50,50,52,C7,00,21,7B, AE, 11,36,A6,06, 10, 1A,4E,77,79, 12 
200  DATA  23, 13, 10,F7,2A,7B,AE,22,8D,B0,22,8F,B0,C9,FF,A5,FF,A5,00,00 


TAST  -  13 


TAST 


Commodore  tf  4 

Leramin 


Er  du  en  svoren  tilhænger  af  laby¬ 
rinter?  I  dette  spil  er  du  Leramin. 
labyrintvandreren  over  dem  alle. 
Du  skal  udforske  en  stor  labyrint 
og  nå  så  langt  som  muligt  på  den 
tid.  du  selv  har  fastsat. 
Programmet  har  sine  egne  in¬ 
struktioner.  men  det  skal  lige  til¬ 
føjes,  at  diamanterne  giver  points, 
teleporteren  transporterer  dig  et 
andet  sted  hen  og  væggene  kan  du 
gå  igennem  efter  at  have  taget  "o". 
Brug  ditjoystick  i  port  II  og:  God 
rejse! 

Asger  £  Crur^net 


m 


o  REM  ****************************** 


20  l=»*(5>  =  " 


1  REM  * 


2  REM  * 


3  REM  * 


LERftMIN 


4  REM  ****************************** 

*** 

5  REM 

B  PR  I  NT  "C  CLR  ,GUL,  )  "  :SC*=  "000000“ 
SHI=2680 

10  DIM  0*i:70):P0KE  53280,0 
SPOKE  53281 ,0:T=400;SC=0 
: HI*= "002680 " :N*=" ASGER  EG" 

1  1  A*<  1  )  =  " 


12  A*C2)  =  " 


13  A*-;  3)  =  " 


14  A*(  4  )  =  " 


30  A$(  6)  =  "«giHi8ii  m 

m  m  m" 

40  fiT-'  iiiiltlfllfW  lil.-S  MM 

WSSM  WMM  SI  II" 

50  A«<8>  =  "i^^mi  m  m  m  mm  m 

H  SI  K  SI  SHWBBI  SI" 

60  A$':  3  >  = "  ssaisnsei  si  si  si  ssbiiihiww^ 
n  fm  s  SI  sssi  SI  s“ 

70  A$<;  10>  =  "jSSi«KSSI  SI  Wm  :'iililftMlSiSI 
s  SI  isssHssi  SI  SI  fgBggjugmuyiji  * 

30  A$<  ii>  =  "sssHmii  m  s  ssm 

s  s  s  s  SI  S" 

90  A$<  i2i  =  "sjsii«»si  m  mnm  m  mmmmmxm 

jlfp  ^  ^  gyatispaaa^  H" 

100  A$(  i3>  =  "iHsæssiei  mm  m  m  m 

SI  IrøSK  IS  IK  fK" 

110  A$<  =  m  wm  m.  m  m  mmmm 

120  A$<  i5>  =  "isssisHii  mm  s  s  n  SI 

id  at  91  ai** 

9*  dåWWmwHit  Mm  Mm  Mm  Mm 

130  A$<  i6>  =  "samswi  s  s  ssi  s  si  smo 


14  -  TAST 


TAST 


140  A*(  17)^ 


150  !=):*■:  18)  =  ' 


160  A*<  19)  = 
ii 

170  ft*(  20)  = 

180  20  =  ’* 
IS  IS 

mtt  Wk 

1 90  fi$(.  22  )  =  " 


200  A$(23)  =  " 

m  m 

210  (=»*<  24)  =  " 
^giæMBag  ji 
220  A*C  25  )  =  " 

m 

230  A:*(26)  =  " 


mm  m  m  m  m 

m  m  m“ 

m  mm  n  x  s 
m  m" 

n  am  81  X  s  m 
s  m  m" 

mm  m  m  m  m  mm 

m  m  m“ 

m  m  mm  m  m  m  m 

m  m  m  m" 

mH  m  91  IK  191  99999HC9999 

MØi  M  M  91” 

mm  m  m  m 

m  m  m  m“ 

IH  IMl  91  91 

m  m  m" 
mm  mm 
m  m  m  m" 
m  m  mm 
mmi  m  m  m  m" 


240  27)  =  "^8Hmmmm  m  m  m 

91  9i  91  91  91” 

250  28)  =  "mmmmm»i  m  mm  mmmmmi 

imHmmmmmi  mmm  mm  m  m  m  m" 
260  29)  =  "mmmmmi  m  m 


91  99  91  9II  9I  99” 

270  30 )  =  "immumm  m  smi 

ggjjgjlg  ^  H  p  ||» 

280  31  )  =  "^mmmmi  m  mm  m  m  m 

m  m  m  m  mwMwmai  m  m" 

290  3£)  =  "mmsmm  mm  m  m  m  m  m 

mm  m  m  I  mm" 

300  33)  =  "mmmmmm  mm  m  m 

IHi  HH  IHI  99  99 ** 

310  i^$<  34)  =  "mmmimmai  mmm  m  m 

Q  o  n  A  'tZi'  Q  ^  ^  s  *'  TfKffiffTfffff***********^  Såt 

w&w  O  o  iMBammlHWHplBwWWm  IK 

gttggssasaagggagaata^^  SI  fi  SI  SBS  SI  SI** 

330  A*(  36)  =  "jgmmmmwi  mm  mo 


mtm  mu  m  m  m* 


340  A*>:37)  =  " 


350  Af:  38  )  =  " 
360  Af  39)  =  " 


iKffflyfifffffp  no  mmm" 

mm  m  m" 


370  LE=14:LA=19!S*="00" :LIV=3 
330  PRINT"< H0ME,CRSR  NED, 

SPACE  )/^  LERAMIN 

390  PRINT"  I 

400  PRINT"  \ _ )T3MPU  WRITTEN  BY  ASG 

ER  E  GRUNNET 
410  PRINT"  SOFTWARE 

420  PRINT"  FOR  COMPU-SOFT 

WARE 

430  PRINT"(CRSR  NED,SPACE12) 

III" 


440  PRINT“<CRSR  NED2, SPACE )m  =  WAL 
L  CCAN'T  DESINTGRATE) 

450  PRINT"  ♦  =  TELEPORTER 

460  PRINT"  •  =  DIAM0^C 

470  PRINT"  L  =  NEW  TIME 

490  PRINT"  I +-  =  WALLS  < DES INTGRATES 

WITH  O) 

500  PRINT"(CRSR  NED ,SPACE6 )PRESS 
< RVS  ON)SPACE<RVS  OFF , 

SPACE3)F0R  START  ! ! 

501  PRINT"<CRSR  NED , SPACE  10 )F 1  =  TIM 
E-ADJUSTING" 

502  PRINT"<CRSR  NED , SPACE  14 )TIME  =*T 

503  PR1NT"<CRSR  NED)SC0RE 

: "SC*"  hiscore: "HI*"  "N* 

504  FOR  1=1  TO  750 

505  IF  PEEK<  197) =4  THEN  770 
510  IF  PEEK<  197) =60  THEN  520 
515  NEXTiGOTO  910 

520  PRINT"<CLR)" 

530  PRINT"  / — \  <RVS  ON) 

r  <RVS  OFF)r 

540  PRINT"  I  (RVS  ON)^ 

(RVS  OFF)r 

550  PRINT"  N _ /OMPU  (RVS  ON)^ 

(RVS  OFF)r 

560  PRINT"  (RVS  ON)F’ 

(RVS  OFF)r 

570  PRINT"  SOFTWARE  (RVS  ON)r 

(RVS  OFF)r 

580  PRINT"  (RVS  ON)r 

(RVS  OFF)r  ERAMIN" :TI*="000000* 
535  X=19:Y=14 

590  PRINT"(  HOME,CRSR  NED8 ) " 

:F0R  I=LE  to  LE+9:Lf  i -LE)=MIDf  A 
f  I),LA,10):NEXT  I 

595  A*(  16)  =  "  mammmmm  m  m  mm  m  m  mrio 

:  "-fMiDf  Ti*,3,4)-i-‘m  m  m  mmmmm 

99  91” 

596  K*  =  TI*:  I=VAL(  K*) 

597  IF  I=>T  THEN  PRINT"(CLR, 

CRSR  NED10,SPACE10)TIDEN  ER  UDLOB 
ET  !  ! " :PRINT"(  CRSR  NED ) "TAB(  14 )SC 
538  IF  I=>T  THEN  FOR  1=1  TO  2000:NEXT 
;G0T0  1040 

600  FOR  1=0  TO  9:PRINT  TAB(14)Lf  I) 
:NEXT  i 

601  IF  PEEK( 1603)=81  THEN  670 

602  IF  PEEK( 1603)=12  AND  IT<3  THEN  T 
I*="000000" : IT=IT+1 :SC=SC-50 
:G0SUB  890 

603  IF  PEEK( 1603)=67  OR  PEEK( 1603)=6 
6  THEN  LA=19:LE=14:G0T0  590 

605  POKE  1603,91 :J=PEEK( 56320) 

607  IF  PEEK( 197)=4  THEN  PRINT"(CLR)* 
:G0T0  380 

610  IF  J=123  AND  PEEK( 16D2 )( > 102  THE 
N  LA=LA-i:lF  LA<2  THEN  LA=2 
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620  IF  J  =  119  AND  PEEK<  1604 )<>  102  THE 
N  LA=LA+l:lF  LA>44  THEN  LA=44 
630  IF  J=126  AND  PEEK< 1563 )<> 102  THE 
N  LE=LE-i:lF  LE< 1  THEN  LE=1 
640  IF  J=125  AND  PEEK<  1643 )<> 102  THE 
N  LE=LE+15 IF  LE >33  THEN  LE =33 
645  IF  PEEKC  197) =60  THEN  I*=T1* 

:PRINT"':  CRSR  NED2  ,SPACE6  ) PAUSE  “ 
;SC=SC-1 :G0T0  870 

650  IF  LA=15  AND  LE=14  THEN  LA=41 
:LE=1 

651  IF  LA=41  AND  LE=2  THEN  LA=15 
;le=  15 

652  IF  LA=10  AND  LE=31  THEN  850 

653  IF  LA=39  AND  LE =32  THEN  860 
660  GOTO  590 

670  PRINT"< CLR,CRSR  NED3 , 

SPACE6)C0NGRATULATI0NS  M! 

680  PRINT“<CRSR  NED2 ,SPACE4 ) AT  LAST 
YOU  FOUND  THE  EXIT. 

690  PRINT"<CRSR  NED  , SPACE  10  )/ -  |\ 

700  PRINT  "  I  I  \  I  I  I 

710  PRINT  '■  I I  \  I  I  I 

720  PRINT  "  I  I  \J  I  I 

730  PRINT  "  N _  I  I  I _ / 

740  PRINT"<CRSR  NED2 ,SPACE3 )PRESS  <R 
VS  ON)SPACE<RVS  OFF , 

SPACE )FOR  CONTINUE" 

741  IF  SC<0  THEN  SC=0 

745  K*=TI*:PRINT"(  CRSR  NED2, 

3PACE4)TIME  :  “;K* 

746  PRINT“<CRSR  NED ,SPACE4 )SCORE :  "  ;  SC 

748  PRINT"<CRSR  NED ,SPACE3 )PRESS  < RV 
S  0N)F2<RVS  OFF, SPACE )T0  RESET  CO 
MPUTER “ 

749  GET  W*: IF  W*= "< F2 ) *THEN  1100 

750  IF  PEEK<197)<>60  THEN  749 
760  GOTO  1040 

770  PRINT-'C  CLR,CRSR  NED2 , 

SFACE7) JOYSTICK  IN  PORT  «2  !!" 

775  PRINT"<CRSR  NED4 ,SPACE 1 3 , 

RVS  ON)SPACE<RVS  OFF, 

SPACE) TO  CONTINUE" 

780  PR  I NT "< HOME, CRSR  NED4 ,SPACE2 )TIME 
:";T"<CRSR  VENSTRE,  SPACE  )  " 

790  IF  PEEKC 56320) =123  THEN  T=T-10 
800  IF  PEEK< 56320)=! 19  THEN  T=T+10 
810  IF  PEEKC 56320)=126  THEN  T=T-1 
820  IF  PEEKC 56320) =125  THEN  T=T+1 
830  IF  PEEKC  197)=60  THEN  PRINT"<CLR)" 
sGOTO  380 

832  IF  T< 1  THEN  T=1 
834  IF  T>999  THEN  T=999 
340  GOTO  780 

850  3B)  =  "mmmsm  mm  m  m  m  m  m 

mm  mm  m  m“ 


855  A$c  36 )  = "  iaMaamas  mm  m 

SI  SI  n  SI  SI  SI  m" 

■.GOTO  590 

880  =  mm  m  m 

SI  SI  SI  SI" 

865  A$<  37)  =  "MPHM 

lilWIMiWIilfllWIllMii'MilWIIWI  SI  SI  SI  SI" 

;G0T0  590 

870  IF  PEEK< 56320 )< >127  THEN  PRINT"< 
CRSR  OP, SPACE  12) " :TI«=1*: GOTO  590 
880  GOTO  870 

890  A*(  LE+5)=MID*(  ACC  LE+5)  ,  1  , 

LA+4)  +  "  "+MID*<  A*<  LE+5)  ,LA+6, 

LEN<  A*(  LE+5)  )  -<  LA+6)  ) 


895 

IF  SCCO  THEN  SC=0 

900 

RETURN 

910 

PRINT"C  CLR) " 

920 

Q*=" 

LERAM IN 

ASGER  GR" 

UJAS  UJRITTEN  B 

930 

Q*=Q*+"UNNET,FOR  i 

COMPU  SOFTWARE 

940 

PRINT" 

950 

PRINT " 

1 

960 

PRINT" 

\.^MPU 

970 

PRINT " 

SOFTWARE 

975 

PRINT 

980 

PRINT" 

PRESENTS; 

985 

PRINT 

390 

PRINT" 

/ 

995 

PRINT" 

/  ERAMIN 

996 

PRINT " 

k  1 

RSR  NED) 

997 

PRINT” 

,<  CRSR  NED2  )  " 


1000  PRINT"<CRSR  0P2  , SPACE  )  |*MID*<  Q», 
1  ,37) "I <  CRSR  NED) * 

1005  PRINT’*(CRSR  0P2,SPACE2) - 


1010  Q$=M1D*<  Q$,2,LEN(  Q*:)-l  )+MID*<  Q*, 
1,1):F0R  1=1  TO  10:NEXT 
1020  IF  FEEK<  197)=60  THEN  PRINT"<CLR 
)":G0T0  520 
1030  GOTO  1000 

1040  IF  SOHI  THEN  HI=SC:GOTO  1060 

1045  SC*=MID*(  STR*(  SC),2, 

LENC  STR*<  SC  )  )  -  1  )  :  K*=  "000000  " 

1046  SC*=MID*<:  K*,  1  ,6-LEN<  SC*)  )  +SC* 
1050  PRINT"(  CLR) " :G0T0  370 

1060  PRINT"< CLR) " ;OPEN  1,0 

1065  HI*=MID*<  STR*<  HI  )  ,2, 

LENC  STR*C  SC  )  )  -  1  )  :  K*=  "000000  " 

1066  HI*=MID*<  K*,  1  ,6-LENC  HI*)  )+HI* 
1070  PRINT"<CRSR  NED7 ,SPACE2 )NAVN: " ; 
1080  INPUT# 1 ,N*: IF  LENC N*) >10  THEN  N 

*=MID*C  N*, 1 , 10) 

1030  PR  I NT "C CLR) ": GOTO  370 
1100  SYS  64738 
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Commodore  64 

fruit  Tree 


’Fruit  Tree"  er  arcade-action  på  et 
plan,  der  liggertæt  op  ad  det.  du  er 
vant  til  fra  spillehalleme.  Kvalitet! 
I  spillet  er  du  en  lille  lastbil  med  to 
liv.  Du  skal  samle  frugt  sammen, 
som  falder  ned  fra  et  stort,  stort 


træ.  Allervigtigst  er  det.  at  du  får 
grebet  de  nedfaldende  kartofler 
og  de  nedfaldende  cola-dåser  (yep, 
det  er  et  meget  mystisk  træ).  Hvis 
cola-dåserne  og  kartoflerne  når 
jorden,  mister  du  et  liv,  hvilket  du 


kan  se  på  farven  af  rammen. 

Og  et  lille  tip:  Trykker  du  på  fire. 
mens  du  kører,  får  du  mere  fart  på 
din  lille  lastbil... 

Peter  Marino 


10  REM 

BØ  PDKE  5B,BØ:CLR:FDR  T-0  TD  3 

iHSCT)- "DISPLAY” :HCT)-1BØØ-T*100 

:NEXT:  P$-” . ” 

70  IF  PEEKC431525-E54  THEN  IBØ 
BØ  PRINT”CCLR,CRSR  NEDE, 

CRSR  HØJREE)PLEASE  HANG  DN  FOR  AP 
RDX.  1.5  niN”CHR$CB) 

90  PRINT”CCRSR  NED, CRSR  HØJRE3)READI 
NG  DATA  ..”:AD-B34 
100  AN-4:GQSUB  lEØ : AD-154BB : AN-EB 
iGOSUB  lEØ: AD-4315E: AN-17 
:BDSUB  1EØ:AD-5043E 
110  AN-1:GDSUB  lEØiGDTD  IBØ 
lEØ  FOR  T-0  TO  AN: READ  XS,CH 
rFQR  X-1  TO  LENCX$)STEP  E 
: A$-niDSCXæ,X, 13 :GOSUB  170:E-U»1B 
130  Aæ-niDæCXS,X+l,  13  :GOSUB  170:E-E+\/ 
:POKE  AD,E:AD-AD+1:C-C+E:NEXT  X 
140  IF  C-CH  THEN  C-0:NEXT  T: RETURN 
150  PRINT” CCRSR  NEDE, RUS  ON37ERROR  I 
N  DATA”:PRINT”CCRSR  NED, 
BLAA3LIST”PEEKCB33+PEEKCB43»E5B”C 
CRSR  DP3,L.BLAA3”:PDKE  190,1 
IBØ  PDKE  B31,13:END 
170  U-ASCCAS3-40+7*CAæ> ”9”3 : RETURN 
IBØ  S1-54E7E:SE-S1+7:FDR  T-Sl  TD  S1+ 
EB: PDKE  T,0:NEXT 
190  SYS  49BE5:riC-5043E:BD-53EBØ 

: IN-53EB1 : JS-5B3EØ : F-E4E : U-53E4B 
EØØ  FOR  X-E040  TO  E047 : POKE  X,0 
:NEXT  XrPOKE  B3E,0:P0KE  B33,0 
: NS-””; FOR  T-0  TO  7 
EIØ  PDKE  U+T«E,0:NEXT  T:PDKE  U+E1,0 
:PDKE  U,EE9:P0KE  U+1,EE9 
:PDKE  U+EB, E55: PDKE  U+37,9 
EEØ  JD-0:A-0:FOR  Y-3  TD  15  STEP  E 
:PDKE  U+Y, A: A-A+35:NEXT  Y 
:POKE  E040,E54 

E30  PDKE  U+E9, 1 :  DUrinY-PEEKCU+303 

:PDKE  U+39,0:P0KE  U+3B,7:GDTD  490 
E40  PDKE  S1+1,0:PDKE  S1+4,0:PDKE  IN,B 
:PDKE  BD,0:GOSUB  E70:PDKE  U+E1,E55 
E50  SYS  nC;IF  PEEKC53EB030  E4E  THEN 
E50 

EBØ  POKE  U+El,0:GOTD  970 


E70  PRINT”CCLR, GRØN, RUS  ON, 

SPACE3«,  i  mi 

C BRUN, SPACE, 

GRØN , SPACE7 , BRUN , SPACE , GRØN , 
SPACEE3”; 

EBØ  PRINT”  CBRUN, SPACE, GRØN, 

SPACEB , BRUN , SPACE , GRØN , SPACE14 , 
BRUN , SPACE , GRØN , SPACE7 , BRUN , SPACE , 
GRØN , SPACE9 , BRUN , SPACE , GRØN , 

SPACE5 , BRUN , SPACE , GRØN  3 ” ; 

E90  PRINT"  CBRUN, 

SPACE, GRØN, SPACE43J  CBRUN, SPACE, 
GRØN,SPACE53*»  CRUS  DF 

F3*CRUS  DN,SPACE1B3”; 

300  PRINT”  J^CCRS 

R  HØJREE3”; 

310  PRINT”  CBRUN3.  CRUS  O 

FF3,CRUS  DN,GRØN,SPACE3, 

RUS  DFF3*  CBRUN3  "CRUS  ON3*CGRØN, 
SPACE3,RUS  DFF3* CBRUN, 

RUS  DN3I  CORANGE3J  CCRSR  HØJRE, 
GRØN3, C ORANGE, RUS  DFF3.CRUS  DN, 
SPACE, RUS  OFF3* CGRØN3" ” 

3EØ  PR I NT "CRUS  DN,SPACEE3I  i  CRUS 
OFF3"V  CBRUN3  "CRUS  DN,SPACEE, 

RUS  DFF,DRANGE3,CGRØN3""  C  BRUN  3  "C 
RUS  DN,  SPACE 3  "C ORANGE, 

RUS  DFF3^  CBRUN, RUS  DN3|  C ORANG 
E3JCRUS  OFF3I  CBRUN3  .CDRANGE, 

RUS  ON, SPACE, RUS  DFF3"” 

330  PRINT”CRUS  DN.GRØN, 

SPACE3*»CRUS  DFF3"  ■  CRUS  DN3,CRUS 
DFF3"  CBRUN3  "CRUS  DN,SPACEE, 

RUS  DFF,  ORANGE  3.  C  BRUN  3  "CRUS  O 
N, SPACEB, DRANGE3I  CRUS  DFF3* ” 

340  PR I NT” C GRØN 3  ■  ■  CBRUN 

3  »CRUS  DN,  SPACEB,  RUS  DFF 3.  "CRUS  O 
N3*,  CDRANGE,  SPACE 3” 

350  PRINT  TABCE03”CBRUN3  "CRUS  ON, 
SPACE73J  CDRANGE, SPACE3” 

:PRINT  TABCE33”CBRUN,RUS  ON, 
SPACE53J  CDRANGE3I ” 

350  PRINT  TABCE33”CBRUN3  "CRUS  DN3*» 
ICDRANGE3I ”:PRINT  TABCE43 ” CBRUN , 
RUS  ON, SPACE43I CDRANGE3J ” 
rPRINT  TABCE43”CBRUN,RUS  DN, 
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SPACE4  5 i  C  ORANGE ) I  C  RUS  OFF  3 . ” 

370  PRINT  TABCE4r’CBRUN,RUS  ON , 

SPACE3I  I  C ORANGE, SPACE, RUS  OFF3I ” 
:PRINT  TABCE4r’CBRUN,RUS  ON, 
SPACEDI  CORANGE, SPACE, RUS  OFF3I ” 
3BØ  PRINT  TABCE43”CBRUN,RUS  ON, 

SPACE  3 1  C  ORANGE)  I  I” 

3SØ  PRINT  TABCE3) ”CBRUN, 

RUS  ON)|  i  CORANGE)! CRUS  OFF)*” 
rPRINT  TABCE3)”CBRUN, 

RUS  ON) I  S  CORANGE)!” 

400  PRINT  TABCE3)”CBRUN, 

RUS  ON)|  I  CORANGE)! CRUS  OFF)|” 

.•PRINT  TABCE3)”CBRUN, 

RUS  ON)|  m  CORANGE, RUS  OFF)| ” 
410  PRINT  TABCE3)”CBRUN,RUS  ON, 
SPACEE)«  CORANGE)  I” 

:PRINT  TABCEØ)”CBRUN)  .CRUS  ON, 
SPACE4)«  CORANGE, SPACE)” 

4EØ  PRINT  TABC1G)”CBRUN)  .CRUS  ON, 
SPACE8)#  I  CORANGE, SPACE, 

RUS  OFF). ” 

430  PRINT”CBRUN, SPACE4)*CRUS  ON, 
SPACE, RUS  OFF)«  *CRUS  ON, 

SPACES)««,  M  I  CRUS  OFF)*« 
CORANGE)«CHOnE)” 

440  IF  QU-l  THEN  FOR  T-0  TO  EØØ 
:T-T+CEØØ  AND  PEEKC5G3EØ)-111 ) 
:NEXT:QU)-0:  RETURN 
450  PRINT  TABC31)”CCRSR  NED7, 

GUL)  - ,”:FOR  Y-1  TO  0 

:PRINT  TABC31)”|  |”:NEXT  Y 

460  PRINT  TABC31)”'' - ,, - 

:PRINT  TABC34)”|i - ” 

:  PRINT  TABC34)”« - ” 

470  PRINT”CH0nE)”TABC3E)”CCRSR  NEDIØ, 
CYAN)SCORECCRSR  NEDE, 

CRSR  UENSTRE5,HUID)0” 

480  PRINT  TABC3E) ”CCRSR  NED, 

CYAN) JOHN  &CCRSR  NEDE, 

CRSR  UENSTREB)PETER”: RETURN 
480  POKE  E,0;SYS  834 : PRINT” CGRØN , 
CLR)”:PDKE  B8E,3:PDKE  BBl , 0 
:POKE  BB3,E;PDKE  E  ,  1 :  QUI-0 
500  ASCØ)-”  CRUS  DN)*«*CRUS  OFF 

)*CRUS  ON)**  .CRUS  OFF)  .CRUS  ON)  . 
CRUS  OFF,  SPACE)  .CRUS  ON)  .CRUS  OFF 
)  *CRUS  ON).  *CRUS  OFF)  *CRUS  ON)« 

»I 

510  A$C1)-”  CRUS  ON)*  *CRUS  OFF)« 
CRUS  ON)*  *CRUS  OFF)«CRUS  ON)  .C RU 
S  OFF)  .CRUS  ON)  .CRUS  OFF, 

SPACE)  .CRUS  ON)  .CRUS  OFF, 

SPACE)  .CRUS  ON)  .CRUS  0FF,SPACE3, 
RUS  ON)* CRUS  OFF)*” 

5EØ  ASCE)-”  CRUS  ON)* CRUS  OFF)* 

CRUS  ON)*  CRUS  OFF)*|  .CRUS  ON)  .CR 
US  OFF,  SPACE)  .CRUS  ON)  .CRUS  OFF, 


SPACE)  .CRUS  ON)  .CRUS  0FF,SPACE3, 
RUS  ON)* CRUS  OFF)*” 

530  ASC3)-”  CRUS  ON)* CRUS  OFF)*  C 
RUS  ON)*  CRUS  OFF)*  CRUS  ON)  *CRUS 
OFF,  SPACE,  RUS  ON).  CRUS  OFF)*CRUS 
ON)  .CRUS  OFF)  *CRUS  ON,  SPACE, 

RUS  OFF)«  CRUS  ON)* CRUS  OFF)*” 

540  A$C4)-”  *CRUS  ON)«  *CRUS  OFF)  .C 
RUS  ON)*  CRUS  OFF)*  CRUS  ON)**«C 
RUS  OFF)  .CRUS  ON)  ■*CRUS  OFF)*” 

550  A$C5)-”  CRUS  ON)*  CRUS  OFF)*  .CR 
US  ON, SPACE, RUS  OFF)«CRUS  ON)* CRU 
S  OFF)*  CRUS  ON)*  *CRUS  OFF)«  .CRUS 
ON,  SPACE,  RUS  OFF)*” 

560  ASCB)-”  CRUS  ON)* CRUS  OFF)*  .CRU 
S  ON)  J CRUS  OFF,SPACEE, 

RUS  ON)*  CRUS  OFF)*  .CRUS  ON)  .CRU 
S  0FF,SPACE5)” 

570  AæC7)-”CRUS  ON)*  CRUS  OFF)*  .CRUS 
ON)  .CRUS  OFF,  SPACE, 

RUS  ON)|CRUS  OFF).  CRUS  ON)*  *CRUS 
OFF)*  .CRUS  ON,  SPACE,  RUS  OFF)»  ” 
500  POKE  S1+5,0:P0KE  S1+B,E40 
: POKE  Sl+4, 17 

580  POKE  SE+5,0:P0KE  SE+B,8 

:POKE  SE+1,18:P0KE  SE+4,1EØ 
BØØ  FOR  T-E  TO  44 : POKE  BB3,T:NEXT 
:FOR  X-0  TO  3: PRINT 
BIØ  FOR  T-1  TO  LENCASCX)) 

:POKE  Sl+1 , 10+ABSCEl-T) 

BEØ  PRINT”CCRSR  OP) ”RIGHT$CASCX) , T) 
:NEXT  T:POKE  BBl , 1 : POKE  SE+4,1EØ 
:POKE  SE+4, lEØrPOKE  B81,0 
B30  NEXT  X:POKE  Sl+1, 0: PRINT 

:FOR  T-45  TO  00: POKE  B83,T:NEXT 
B40  FOR  X-4  TO  7:ASCX)-” 

”+A$CX) :PRINT 
B50  FOR  T-1  TO  LENCASCX)) 

:PRINT”CCRSR  OP)”RIGHT$CA$CX) ,T) 
:POKE  Sl+1 , 30+ABSCE3-T) 

BBØ  NEXT  T:POKE  601,1: POKE  SE+4,1E3 
:POKE  SE+4, lEØ: POKE  B01,0:NEXT  X 
:POKE  Sl+1,0: 

B70  FOR  T-BS  TO  180: POKE  BB3,T 
BØØ  NEXT: FOR  T-1B3  TO  4  STEP-1 
:POKE  B03,T:NEXT  T:POKE  BBE,B 
:FOR  T-4  TO  00: POKE  B03 , T : NEXT  T 
BØØ  FOR  T-50  TO  150: POKE  B73,T:NEXT  T 
:FOR  T-151  TO  50  STEP-1: POKE  B73,T 
:NEXT  T 

700  POKE  SE+4, lES: POKE  SE+4,1EB 
710  PRINT”CCRSR  NED, RØD, 

CRSR  HØJRE) - 


7EØ  PRINT”CBLAA)  «  .CCRSR  HØJRE)..*  C 
CRSR  HØJRE)«  .. ” 

730  PRINT”|.CRUS  ON, SPACE, 

RUS  DFF)|CRUS  ON)  .CRUS  OFF)|CRUS 
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□N, SPACE, CRSR  HØJRES , SPACE , 

RUS  DFF^IV  ■” 

740  PRINT”  ■■■■■ CRUS  ONJ^CRUS  DFF^^C 
CRSR  HØJRE, RUS  QND.CCRSR  HØJRE, 

RUS  DFF)  ■  ■” 

750  PRINT  TABC14)”CGUL,CRSR  0P3 , 

CRSR  HØJRE, RUS  DN)  .CRUS  QFF3.CRUS 
□N 3  »CRUS  OFF3"CRUS  DN3.CRUS  OFF3 
■CRUS  ON)  .CRUS  OFF3*CRUS  OND  .CRUS 
□FF3,CCRSR  HØJRE,  RUS  CN)  "CRUS  DF 
F3  JCRUS  ON3«CRUS  OFF).CRUS  ON 3  .C 
RUS  QFF3,|CRUS  □N3  1  CRUS  OFF3  .CRU 
S  □N3  ■” 

7BØ  PRINT  TABC143”CCRSR  HØJRE, 

RUS  □N3  "CRUS  □FF3"CRUS  ON 3  .C CRSR 
HØJRE3ICCRSR  HØJRE 3  .C CRSR  HØJRE 3  ■ 
CRUS  OFF3*CCRSR  HØJRE, 

RUS  ON 3  ■  .C RUS  OFF3ICRUS  ON 3  "CRUS 
OFF3ICRUS  ON 3  "CRUS  OFF3«|CRUS  ON3 
•  I"  ” 

770  PRINT  TABC143”CCRSR  HØJRE3"CCRSR 
HØJRE,  RUS  ON3.CRUS  OFF3*  "CCRSR  H 
ØJRE,RUS  ON3.CRUS  OFF3"**CCRSR  HØ 
JRE3"CCRSR  HØJRE3«***««*  "CCRSR  HØ 
JRE3" ” 

7BØ  PR  I  NT”  C  BL  AA  3  ■«CCRSR  HØJRE  3  .CCRS 
R  HØJRE3.CCRSR  HØJRE3.,«  .  .CCRSR 
HØJRE 3  ■ 

7SØ  PRINT”! »CRUS  ON, SPACE, 

RUS  OFF3*CRUS  ON, SPACE, 

RUS  OFF3iCRUS  ON 3  "CRUS  OFF3«CRUS 
ON, SPACE, RUS  OFF3iiiCCRSR  HØJRE3% 
CCRSR  HØJRE, RUS  ON3i  CRUS  OFF3  "CR 
US  ON3SCRUS  OFF,CRSR  HØJRE3* ” 

800  PRINT”  ■■■■■■  ■■■■•CCRSR  HØJRE3 
■CCRSR  HØJRE3^ CCRSR  HØJRE3^ ” 

BIØ  PRINT  TABC103”CCYAN3«  .CCRSR  HØJ 
RE3...  .CCRSR  HØJRE3  .CCRSR  HØJRE3  . 
..CCRSR  HØJRE3..  .*.CCRSR  HØJRES3 
■  M. CCRSR  HØJRE3.” 

B20  PRINT  TABC103”CCRSR  HØJRE3iCRUS 
ON 3  .CRUS  OFF3iCRUS  ON 3  ■CRUS  OFF3i 
CRUS  ON, SPACE3^ CCRSR  HØJRE3i  ■  !!■ 
CRUS  OFF3^CRUS  ON3^JCRUS  OFF3.CR 
US  ON3i CCRSR  HØJRE, 

RUS  OFF3SCRUS  ON3iCRUS  OFF3. CRUS 
ON3i  ■CRUS  OFF3i  ” 

830  PRINT  TABC103”CRUS  ON3. CRUS  OFF3 
■CRUS  ON3.CRUS  OFF3^iiiCRUS  ON3.C 
CRSR  HØJRE3iCRUS  OFF3  ■CRUS  ON 3 Hi 
CRUS  OFF31iCRUS  ON3.iCRUS  OFF3.C 
RUS  ON3iCRUS  OFF3«.CRUS  ON3yCRUS 
OFF3.CRUS  ON3iCRUS  OFF31” 

B40  PR I NT” C ORANGE 3 _ 


:POKE  51+24,5 

B50  PRINT”CRUS  ON , SPACE83PRESS  <FIRE 
>  TO  START  . . .  CHOnE3” 


870 

880 


830 

300 

310 


320 

330 

340 


350 

360 

370 


380 


: TIS-”000000» 

060  FOR  T-BB  TO  4  STEP-2 

:POKE  073, B+CB8-T/23 : POKE  683  T 
GOSUB  330: POKE  Sl+1 , T/2 : NEXT ’ 

IF  JO-1  THEN  360 
POKE  6B2,RNDC13*15+1 
FOR  T-2  TO  88  STEP  2 
POKE  073, B+C88-T/23 : POKE  683  T 
GOSUB  330: POKE  Sl+1 , T/2: NEXT* T 
IF  JO=l  THEN  360 
IF  Tiæ>"ØØøøø7»xHEN  POKE  2  0 
POKE  Sl  +  l,0:QU-l..  bOSUB  1140 
GOTO  430 
GOTO  860 

IF  PEEKCJS30111  THEN  RETURN 
JO-1: POKE  31+24, 15: POKE  681,1 
POKE  S2+4, 123: POKE  S2+4,12B 
POKE  681,0 
RETURN 

POKE  2,0: GOTO  240 
POKE  S1+4,0:P0KE  2,0: SYS  834 
:POKE  682, 2: POKE  681,0 
:SC-PEEKCB323+PEEKCB333«25B 
POKE  S2+B, 240: POKE  Sl+4,17 
POKE  S2+4,17 

PRINT”CCLR, RØD, CRSR  NED73” 

:S$-”  ”:PDKE  2,0 

:POKE  673, 43: POKE  683, 205: POKE 
1000  POKE  1000,PEEKCB323 
:POKE  1001,PEEKCB333 
1010  PRINT  Sæ”CRUS  OND^  .  CRUS  OFF5.  . 
CRUS  ON,  SPACE 5.  ■CCRSR  HØJRE, 
SPACE2,RUS  OFF3.CRUS  ON)^  CRUS  OF 
F)i CRUS  OND!  .  ” 

1020  PRINT  SS”CRUS  ON, SPACE, 

RUS  OFF)i CCRSR  HØJRE2, 

RUS  ON3i  i  CCRSR  HØJRE , SPACE5 , 

RUS  OFFDICRUS  ON5i  CRUS  OFF)  .  ” 
1030  PRINT  SS” C RUS  ON, SPACE, 

RUS  OFF3iCRUS  ON). CRUS  OFF)iCRUS 
ON) i  .  CCRSR  HØJRE, SPACE, 

RUS  OFF)iCRUS  ON). CRUS  OFF)^CRUS 
ON, SPACE, RUS  OFF)iCRUS  ON) i  .CRUS 
OFF)^ ” 

1040  PRINT  S$”CRUS  ON).  ■CRUS  OFF)i C 
RUS  ON) i  i  CCRSR  HØJRE, SPACE, 

RUS  OFF)i CCRSR  HØJRE2,RUS  ON, 
SPACE, RUS  OFF)iCRUS  ON) i  ■  ” 

1050  PRINT  S$”CCRSR  NED, SPACE, 

RUS  DN)^  .  CRUS  DFF).CRUS  DN)i 


330 


2.1 


i  C 


CRSR  HØJRE, SPACE)  .  CRUS  DFF)i CRUS 
DN)i  .  ■” 

1060  PRINT  Sæ”  CRUS  ON, SPACE, 

RUS  OFF)iCRUS  ON, SPACE, 

RUS  OFF)iCRUS  ON)i  i  CCRSR  HØJRE, 
SPACE, RUS  OFF)i«CCRSR  HØJRE, 

RUS  ON)i  i  ” 

1070  PRINT  S$”  CRUS  ON, SPACE, 
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RUS  DFFDICRUS  DN, SPACE, 

RUS  OFFDICRUS  QN)|  I  CCRSR  HØJRE, 
SPACE)  »CCRSR  HØJRE)|  "CRUS  DFF)*” 
lØBØ  PRINT  SS”  CRUS  DN).  ■  CRUS  QFF)" 
■C RUS  DN).  »CCRSR  HØJRE, 

SPACE)«  CRUS  □FF)|CRUS  QN)!  CRUS 
□FF)  "CRUS  DN)  ■” 

1090  FOR  T-4S  TG  149:P0KE  B79,T 
:PDKE  BB3,254-T*2+47 
:PDKE  Sl+1, 100-T/E 

1100  POKE  SE+1, 149-T:PDKE  SE+1 , 149-T 
:NEXT:POKE  SE+1, 0: POKE  SE+4 , 0 
:PDKE  Sl+5,0 

1110  POKE  Sl+B,ll:POKE  Sl+1, 50 
:PGKE  Sl+4, 1EB:PGKE  S1+4,1E9 
IIEØ  PGKE  Sl+4, lEBiPGKE  BBE , 7 
:FGR  T-150  TG  110  STEP-1 
:PGKE  B79,T:PGKE  BB3 ,  E54-T*»E+49 
1130  NEXT:FGR  T-1  TG  1000: NEXT 
:PGKE  E,0 

1140  PRINT”CGUL,CLR)”;  :PGKE  IN, 9 
:PGKE  BG,B 

1150  PRINT”CCRSR  wcttpfp-.  — 

*»CRUS  GN)  CRUS  GFF )»»».»» 

^«___”:PGKE  Sl  +  1, 0:  PGKE  SE+1,0 
IXGØ  PR I NT” C RUS  GN , SPACEB)FRUIT-TREE 
HALL  GF  FAME 

:PGKE  S1+4,17:PGKE  S1+G,E40  _ 

1170  PRINT”CRUS  □FF,CRSR  HØJREE) - 

CRUS  □N)»MMi...iM^HCRU 
S  GFF)  ' 

IIBØ  PRINT”CCRSR  NED,CRSR  HØJRE3, 
L.GRØN)GAnE  BY  PETER  MARING  , 
GRAPHICS  BY” 

1190  PRINT  TABC13)”JGHN  MIKKELSENCCR 
SR  NED)” 

lEØØ  PRINT  TABC11)”CGRAA3)YGUR  SCGRE 
: ”PEEKC1000)+PEEKC1001)*B5B 
lElØ  PRINT”CCRSR  NED) ”TABC 10) ”CHUID) 

lEEØ  FGR  Y-0  TG  9: PRINT  TABC10)”|”TA 
BCE9)” I ”:NEXT  Y 

1E30  PRINT  TABCIØ)”' - 

1E40  PRINT”CSGRT,HGf1E,CRSR  NED9)” 

:FGR  P-0  TG  9:PRINT  TABC 1E)HSCP)L 
EFTSCP$,7-LENCH$CP)))  ,HCP) 

1E50  NEXTiIF  SC<-HC9)THEN  1400 
lEBØ  PRINT”CCRSR  NEDE,CRSR  HØJRE4, 
GRAA3)PLEASE  STATE  YGUR  NAGE 
:  CHUID)”; : PGKE  E04, 0 
1E70  GET  A$:IF  A$-””THEN  1E70 


:NS-LEFT$CN$,LENCN$)-1) :GGTG  1E70 
13EØ  IF  LENCN$)>B  THEN  1E70 
1330  IF  AS-”  ”THEN  PRINT  AS;:NS-NS+AS 
:GGTG  1E70 

1340  IF  ASCCASXBS  GR  ASCCAS)>90  THE 
N  1E70 

1350  PRINT  AS; : NS-NS+AS: GGTG  1E70 

13GØ  FGR  N-0  TG  9 

1370  IF  SC>HCN)THEN  G-N 

:FGR  S-0  TG  9-G : HC 10-S)-HC9-S) 

: HSC10-S>-HSC9-S) : NEXT: L-1 
13BØ  IF  L-1  THEN  HCN)-SC : HSCN)-NS : L-0 
:SC-0:GGTG  1E40 
1390  NEXT 

1400  IF  DU-l  THEN  FGR  T-0  TG  400 

:IF  PEEKCJS)-111  THEN  T-401: RETURN 
1410  IF  GUJ-l  THEN  NEXT:  PGKE  53EB1,B 
:GGTG  E70 

14EØ  FGR  T-1  TG  500: T-T+C7000  AND  PE 
EKCJS)-111) ;NEXT:GGSUB  EØØ 
:GGTG  490 

1430  DATA  7BA97FBDØDDCA973aD1403A903 
BD1503A3B1BD1AD05BAEØØBEABØEAE3EB 

EA7,  3331 

1440  DATA  ØEAEØBBEA90EAEØEBEAAØEAE5B 
BEABØEGØØØA901BD19DØAD7E03F01BADA 
90E,  3079 

1450  DATA  EØCE03A900BD7E03ADA70E1BBD 
ABØEaDA70EBDlED04CAD03ADAAØEEØCEØ 
3A9,  E973 

14BØ  DATA  01BD7E03ADA70E1BBDABØEBD1E 
DØAD11DØE97FBD11DØADØDDCE901F0034 
C31,  30EE 

1470  DATA  EA4CBCFE48A50EFØØBBBBDEØDØ 
BDEIDØBØBBBØ,  E40E 

1400  DATA  ØØØØØØEØØØØØEØØØØØEBØØØØEC 
00003D00003D00003F000037400037CØØ 
03D,  7GØ 

1490  DATA  CØØØØDDØØØØDFØØØØF7400037C 
0003DDØØØØDF4000F7D4003DFDØØØF570 
003,  E313 

1500  DATA  FF005400005500000540000540 
000150000150000114000104000105000 
101,  758 

1510  DATA  00010100010040EA0040AABEAØ 
AA8AABABBAABABBAB8AEBABBAEBABBAAØ 
AE8,  3483 

15EØ  DATA  EBØEA000000000000000005000 
0050000014000014000005000095400EA 
BAØ,  94B 

1530  DATA  ØAAAABØAAAABEAAAAAEAAABAEA 
AABAEAAABAEAAAEAEAAAEBEAAAE80AABA 


1E80  PGKE  Sl+1, E5: PGKE  Sl+1,0 
1E90  IF  AS-CHRSC13)THEN  PGKE  E04,l 
: PRINT”  ”:GGTG  13BØ 
1300  IF  AS-CHRSCEØ)AND  LENCNS)-0  THE 
N  1E70 

1310  IF  AS-CHRSCEØ)THEN  PRINT  AS; 


BØE,  3957 

1540  DATA  AAAØØØAA800000000000000000 
000000000000000000000000000050000 
ØBA,  814 

1550  DATA  ØØØØGABØØØBAAØØØBEABØØBAEA 
80GAAEA9BAAAA95AEAE91AAAA91BAAA50 
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55A,  3514 

1560  DATA  55015554001540000000000000 
ØØØØØØØØØØØØØØØØØØØØØØFF0003FFCØØ 
FFF,  1315 

1570  DATA  FØØFFFF03FFFFC3FFFDC3FFF7C 
ØFFF700FF5F003FFCØØØFFØØØØØØØØØØØ 
000,  3807 

1580  DATA  ØØØØØØØØØØØØØØØØØØØØØFFFØØ 
3BEAC02FFF802AAAØØEAAA002FAACØSEB 
ACØ,  2688 

1530  DATA  2EFEC02EFEC02FBAC02AAAC02F 
EA002ABFC03AAA003EAA002FAA002BEAØ 
02A,  4155 

1600  DATA  FE802ABFC03AABCØØFFFØØØØØØ 
000000000000000000000000010000040 
000,  1503 

1610  DATA  140000AA0002AA800AAAAØØAAA 
AØØAAAEØØAAAEØØAAAEØØAABEØØAAFAØØ 
2AA,  3304 

1620  DATA  8000AA00002800000000000000 
ØØØØØØØØØØØØØØØØØØØØØØA80000A6000 
2AA,  846 

1630  DATA  0002AAØØØAAA800AAA800AAB80 
ØAAB800AAF800AAF800ABE8002BE0002B 
AØØ,  2740 

1640  DATA  ØØA80000A80000000000000000 
000000000000000000000000000000000 
000,  336 

1650  DATA  0040000010000010002554AØAS 
55B8A355A8AEAAAØAAAAB8AAAEAØABAAA 
82A,  3336 

1660  DATA  AAB82AAAAØØABAAØØAAA8002AA 
ØØØØA8000000000000000000000000000 
000,  1730 

1670  DATA  00000000000015000155401556 
505855545555545565349555545555645 
559,  1966 

1680  DATA  54165550055540015500000000 
0000000000000000003FØØØØØFØØØØØFØ 
202,  608 

1630  DATA  330A8A830AØA802AAAA02AAAEØ 
2AAAE08AAAE02AAAEØØABB900AEB800AE 
AØØ,  3792 

1700  DATA  03AA0003AAØØFCAØØØFCAØØØØC 
200 ØØC20000G 000000000000000000000 
000,  1286 

1710  DATA  00000000000000000000000000 
08FC2002FC8AAACC8555CC2555EC2555F 
F25,  2054 

1720  DATA  55FE2555FFØFFFFFØFFFFF2EEF 
EFØEEFEF0220200220200000000000000 
000,  2914 

1730  DATA  00000000000000000000000000 
003F00003F800933AAA83355583B5558F 
F55,  1575 

1740  DATA  50BF5558FF5559FFFFFØFFFFFØ 
FBFBB8FBFBB0080800080980002AØØFF, 
4329 


1750  DATA  FE03DØBC03DØCØFFDØØDA9E720 
21C069139D02D0205CC060AD12D045A26 
5A2,  3991 

1760  DATA  2A600DC002AD12D045A265A22A 
CDC0029009EDC002AØØØCØFEDØF260A90 
B20,  3755 

1770  DATA  21C01869F29DF307E9F1AØB950 
C03D28D0600002050200020801020F020 
08A,  2786 

1780  DATA  4AAA203BC060A2FD8EF807AEØØ 
DØEØFFF003EEØØD060A2FE8EF807AEØØD 
ØEØ,  4500 

1790  DATA  18F003CEØØD060ADØØDCC977DØ 
032063CØC967D0098063C02063C08063C 
ØC9,  3715 

1800  DATA  7BD0032073CØC96BD0092073CØ 
2073C02073C060EAEAEAEAEAEAEAEAEAE 
AEA,  4885 

1810  DATA  EAEAEA186D40039003EE41038D 
4003A020A20C200CE5AE4003AD410320C 
DBD,  3110 

1820  DATA  EA60EAAD1ED08DC1022901C901 
D00320ECC060A90A20BCCØA213ADC102C 
903,  3666 

1830  DATA  D002A203C905D002A205C909DØ 
02A207C911D002A209C921D002A20BC94 
IDØ,  3237 

1840  DATA  02A20DC981D002A20FA9FE9DØØ 
D060A201E8E8BDØØDØC9E5F005EØØFDØF 
360,  4263 

1850  DATA  8A4AA8B9F007C9F7F004C9FBDØ 
EDAD20DØEAEAC9FØDØØAA9078D20D0608 
D20,  4775 

1860  DATA  D060A9028D20D060AD1ED08DFF 
CFC900F06B2901C901F065ADFFCF2902C 
902 ,  3980 

1870  DATA  D008EAEAEAA2024CD3C1ADFFCF 
2904C904D005A2044CD3C1ADFFCF2908C 
908,  4193 

1880  DATA  D005A2064CD3C1ADFFCF2910C9 
10D005A2084CD3C1ADFFCF2920C920DØØ 
5A2,  3949 

1890  DATA  ØA4CD3C1ADFFCF2940C940D005 
A20C4CD3C1ADFFCF2380C980D005A20E4 
CD3,  4171 

1900  DATA  C160CACA200AC060A90FØD18D4 
A9009D05D4A9F08D06D460EA8D04D48EØ 
ØD4,  3920 

1910  DATA  8C01D460EAEAEAEAEAEAEAAD40 
03CD02C7F0098D02C7A9148D03C7EAADØ 
3C7,  4465 

1920  DATA  C932F011EE03C7A911AE03C7AC 
03C720EAC14C29C2A9008D04D460 ,  3276 

1930  DATA  A2029EFACFA2009EC5022000CØ 
AEC502E8E8EØØEDØF12093C020DCC0202 
6C1,  4076 

1940  DATA  205DC120FBC1AEFACFCA9EFACF 
EØØØDØD560,  2967 
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Amstrad 


Amstrad 


Tun.  fun.  fun"  synger  Beach  Boys 
og  sandelig  om  ikke  der  er  masser 
af  Fun  i  Amstrad-programmet 
'Ordsplif.  Tast  et  vilkårligt  ord 
ind  og  maskinen  vil  udregne  og  ud¬ 
skrive  alle  kombinationerne.  Den 
tager  ikke  hensyn  til.  om  det  er 
ord.  der  eksisterer  i  det  danske 
sprog,  men  så  er  det  også  bare  me¬ 
re  FUN! 

Kenneth  Bemholm 


IM  kf-H  ORpspLIT  Vl.ø 
■Cl  PPM 

■:ii  PFI'I  a:  )  KtMNEl'H  EfERHHOLM  1:3-12-85 
■Ui  F.'FH 

mouf  1  :  Bl  iROER  H 1 1 NK  W .  8 1 1  Hk  1 , 24  ■  I  HK  2  /  iS  >  I  HK  3 , 1  ■  BHc  1  i  GQ=0 1  Rfi=ø  ■  D I M  Fl*(  22  ) 

C.Ø  CLSipEH  liLOCFirE  l^l'PRIHT  "Indtast  et  ord  (max,  21  teSn).  " 'LOCRTE  3»6>IHPUT 
'•CiRC>  "  .iURDSii  IF  I  FH(0RD*)>21  OR  LEH<  ORO*  .K 1  THEH  6ø  E 
l.iT  70 

70  CLSiLOCRTE  liliIHRUT  "1.  FRI  /  2.  STYRET  SORTERING  "iFG'IF  FG»1  OR  FGa2  THEN 
cl.-:  ELSE  70 

h-0  PFH  SiUXhTE  MiRRIHT  "Ord  '  " J ORD* i LOCHTF  1,3‘PRINT  LEHi  ORD*>)"  Te9n.  "'FOR 

0  =  I  ro  I  f- 1 T  I'IPI  ) :  H*i:  R  :i=H  I  D*(  ORD* ,  R ,  1  ■)  ■  NFXT  R  i  FOR  I  OP 

i-.-X  10  ''b-CR-P:'  STEP  -1  O  OCRTE  I  OP  >, 20  TEN  1 'PRINT  "_"iNEXT  I  OP 

-O  FOR  hF=BH  TO  P'FOR  HD=BN  TO  R'FOR  FlC«>8N  TO  R'FOR  PB=BH  TO  Ri  FOR'  Z7.«BH  TO  R'FO 
c  ro  Ri  FOR  •XX'^BN  TO  R'FOR  WW=BH  TO  R'FOR  VViseH 

lo  R'FOR  OIJuBH  Dl  R'FOR  r(=FtH  TO  R'FOR  SS-BN  TO  R'FOR  RRi-BN  TO  R'FOR  QQi^BN  TO.R 
100  FOR  PP=BH  Tf  I  R'FOR  Oi;i=BH  TO  R'FOR  NN=BH  TO  R'FOR  HMaBN  TO  R'FOR  LL“BH  TO  RiF 
op  l:k:--DN  TO  R'FOR  |.J=BN  TO  R 

Mø  IF  Fi>I  THEH  120  ELSE  PEN  2'LOCRTE  6,10'LINE  INPUT  "Tast  ENTER  ";G* 

/Xi  HH=Fifl+liPEH  l'LOCflTF  1,5 'PR  I  HT  "Kofbl  natiori  nr.  "jflfl 

1:0  PFH  2'LOChTE  26,20'PRIHT  R*!;  1  ) ' BH=2 ' LOCflTE  26,20iPRIHT  fl$<JJ)iNEXT  JJ'GG«liG 
OSliR  i-'øø'l  Of:RTF  .25, 20 'PRINT  R*<1)'LQCRTE  25,  20 'PRINT 
•Hi  kk  >:HF-XT  kk'iTi^P'GOSUB  2øø'L0CflTE  24,20'PRINT  R*a)iLOCRTE  24,20'PRINT  H*<LL 
•'NFXT  I .L ' 0i>3 ' OOSUB  2øø 

140  l.ijCRTF  23,20'PRIHI  R*-:  n i BHap •  LOCRTE  23,20'PRINT  R«': MM ) ' NEXT  MM ' GG»4 ' GOSUB  2 
"04  OCR  I E  22, 20 'PRINT  R*'::  1  ) '  L  OCHTE  22, 2ø' PRINT  R*':HN' 

rtiFXT  NN ' 00=5 'OOSUB  200'LOCRTE  21,20iPRIHT  fi*<l>'LOCflTE  21,20iPRIHT  R*':00>'NEXT 
00  :  '".jOs-O '  OOSUB  200 

1^.0  l.OCHTE  20,20'PRINT  R*a  > ' 6N=2 •  LOCRTE  2ø,2øiPRINT  fl*<PP>iNEXT  PPiQG»7iGCiSUB  2 
'Ofi  |.0|■RTE  19,20'PRINT  R*fniLOCRTE  19,20'PRINT  fl*<GIQ 

'  NF.XT  00 'GG=8' OOSUB  Pøø'LOCRTE  18, 20 'PRINT  fl« 1 ) i LOCRTE  18, 20 'PRINT  fl*<RR)'NEXT 
PR '  OiO=Si '  GOSUB  200 

li-."  lO'-RTE  17,20'PRINT  R*a  > ' BN=2 ' LOCRTE  17,2øiPRINT  fl*<SS>iNEXT  88 iGG»10' GOSUB 
:4'ø : L'XRTE  16,20'PRINT  R*a>iLOCRTE  16,20iPRINT  R*<T 

D'NFXT  TT"Oi>tI 'G0:5UB  200'LOCRTE  15,2øiPRINT  R^C  1 ) ' LOCRTE  15,20iPRINT  fl*<UU)'NE 
XI  UU'Ol,^' OOSUB  200 

170  I  iXRTE  14,20'PRINT  R*!;  1  ) ' BN»2 ' L.OCRTE  14,20'PRINT  R*(W)'NEXT  VV ! CG" 1 3 ' G'DSUB 
,-•00  I  O'.^R  TF  1 3 , 20  'PRINT  R*<  1  ) '  LOCRTE  1 3 , 20 '  PR  I  NT  f\*<:  W 

l•J."NFXI  HW"0iri=14oM:i'SUB  200'LOCRTE  12,20iPRINT  R*<1>'L0CRTE  12,2øiPRINT  fl*<XX>iNE 
,XT  >iX"Oi';=15'Oi;j:5UF;  200 

180  L.iTi.HrF  11. 20 'PR  I  NT  R*':  1  )' BN=2 '  LOCRTE  11, 20 'PR  I  NT  fl*<YY)'NEXT  YY'GGialS'GiiSUB 
,-øø'|."i::RIF  lø,2C"PRlNT  R*!;  1  ) ' L'XRTE  lø,20iPRINT  R*(  2 

.'■i 'NFXT  ;!2":.ii=17'00:5UB  2øø' LOCRTE  9, 20 'PRINT  R*(  O 'LOCRTE  9,  20 'PRINT  R*(RB>'NEXT 
R6 ' 00=  1 8 '  OOSI.  IB  200 

1-30  L'jCRTE  8,2øipRINT  fl*<:  1  >' BN=2 ' LOCRTE  8,20'PRINT  fl*i:fiC)iNEXT  RCiGG«19' GOSUB  2ø 
"  lOCRTE  7, 20 'PRINT  R*<  1  .''L'XRTE  7, 20 'PRINT  R*<:RD>'N 

FX  I  RD  "■;iO--=2ø '  Gi"i:^l.l8  2øø' LOCRTE  6, 20 'PRINT  R*'r  1  >' LOCRTE  6, 20 'PRINT  fl«<flE)'NEXT  RF 

I iiT=:>  1 '  Of i:SUB  2øø '  GOTO  2 1 ø 

?m  IF  iOOR-1  THEN  21ø  ELSE  RETURN 

210  RR=RR-1 'CI.S'REN  l'L'OCRTE  1,1 'PRINT  "Rf  ordet  >  "'PEN  2'LOCRTE  12,1 'PRINT  ORD 
S"  Ulf  RTF  H+R,l  RFN  1 'PRINT  "  <" 'LOCRTE  1,3 'PRINT  " 

hlev  drr"'|OCRTF  1,.5'PFN  2 'PR  I  NT  Rfl' LOCRTE  1,7 'PEN  1 'PRINT  "k.:,iobinatiorier;  "  '  LOCR 
TF  1 ,  1 0 ' PFN  3 ' FND 
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Commodore  64 

C-64  Casfle 
Dungeon  . 


Forvild  dig  ned  til  de  unævnelige 
rædsler  under  den  store  borg. 
Skrækkelige  monstre  lurer  i  gan¬ 
gene.  kun  ventende  på  at  sætte 
kløeme  i  dit  kød. 

Find  bomberne,  der  er  skjult  i  slot¬ 
tet.  og  overskrid  ikke  tidsfristen 


på  de  tre  minutter.  Spillet  er  op¬ 
bygget,  så  hele  slottets  grundplan 
findes  på  skærmen  på  en  gang. 
men  du  ser  kun  et  lille  felt  rundt 
om  din  mand  -  so  watch  out!  1 1 

Thomas  Køchs  Nielsen 


PROGRAH:  CASTLE  DUNGEGN 

0  GGSUB  5000:G0SUB  1500:GQSUB  BØØ 

:GOSUB  1000: GGSUB  1100: GGSUB  1300 
: GGSUB  1010 

I  GGSUB  1140 

5  GGSUB  3000: GGSUB  4000: GGSUB  1500 
:TI$-”000000” 

7  GGSUB  20:GGTG  7 

10  JG-0: JY-PEEKC5B3BØ) 

:JE-15-CJY  AND  15):GN  J2  GGTG  11, 
12,12,13,13,13, 13, 14: RETURN 

II  JG— 40:  RETURN 

12  JG-40: RETURN 

13  JG — 1: RETURN 

14  JG-1: RETURN 

20  GGSUB  10 

25  GET  Aæ:IF  AS-”L”THEN  GGSUB  4S1 
:LE— 1 

27  IF  TI$>”000300”THEN  Aæ-”TIDEN  LØB 
UD”: GGTG  BØØ 

30  TE-PEEKCnA+JGj-40: IF  TE<0  THEN  LE 
-0:GGTG  170 

40  GN  TE  GGSUB  50 , BØ , BØ , 90 , 1 10 , 130 , 
140, 150, IBØ: GGTG  170 

50  GGSUB  220: JG-0: RETURN 

BØ  IF  NGT  LEU  THEN  PGKE  HA, BL 

: GGSUB  1B5:A$-”DU  FALDT  I  ET  HUL” 
:GGTG  105 

70  K-1: RETURN 

BØ  KE— 1:PGKE  1303, 43: PGKE  55575,1 
: GGSUB  401: RETURN 

90  GGSUB  320: IF  NGT  SU  THEN  AS-”DU  B 
LEU  SPIST  AF  ET  UHYRE”: GGTG  BØØ 


100  GGSUB  3BØ: RETURN 
105  GGSUB  EEØ:FGR  TD-1  TG  BØØ:NEXT 
:GGTG  BØØ 

110  BG-BG-1:PGKE  1B23+40*BG , 45 
:PGKE  5B095+40»BG, 1 
:IF  BG-0  THEN  500 
120  RETURN 

125  GGSUB  2BØ: GGSUB  220 
:FGR  TD-1  TG  200 : RETURN 
130  RETURN 

140  IF  NGT  KE  THEN  GGSUB  220: JG-0 
: RETURN 
150  RETURN 

IBØ  SU — 1: GGSUB  401: PGKE  1423,49 
:PGKE  55B95, 1 : RETURN 
170  XH-0:PGKE  HA  ,  BL :  riA-HA-H  JG 

:PGKE  nA,FI:IF  K-1  THEN  PGKE  HA , 42 
:K-1 

IBØ  D-nA-1024: Y-INTCG/40) 

: X-CQ-Y*40)»B: IF  X>B55  THEN  XH-IN 
TCX/25B1 : X-X-XH*E5B 
190  Y-Y*B+3E: PGKE  HX,XH:PGKE  LX , X 
:PGKE  YS,Y:BL-3E 
195  IF  K-1  THEN  K-0:BL-4E 
19G  RETURN 

200  FGR  I-l  TG  4:READ  NGC 1 ,  15 , DUC  1 , 1) 
:NEXT 

201  FGR  I-l  TG  7:READ  NGC2, I  5 , NLC2, 
n , DU C 2, I  5 :NEXT 

205  RETURN 

210  DATA  B, 100,7,50,7,50, 12,300, 14 

211  DATA  2,24,100,2,24,100,2,24,100, 
2, 1G3, 100,2,24, 100,2, 1G3, 100,3,35 

220  REn 
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E30  PDKE  H1,15:PDKE  HE,19 
E40  POKE  UD, 15: PDKE  AT, EØ: PDKE  SU, 5 
:PDKE  U)A,ND 

E50  FDR  TD-1  TD  10:NEXT:PDKE  UJA,ND-1 
:FDR  TD-1  TD  E : NEXT : RETURN 
EEØ  REH 

E70  PDKE  AT,10:PDKE  SU,10:PDKE  UD, 15 
EBØ  FDR  I-EØØ  TD  100  STEP-1 
E90  PDKE  Hl,  I:  PDKE  HE,  100:  PDKE  LJA,TR 
300  FDR  TD-1  TD  3:  NEXT:  PDKE  UJA,TR-1 
:FDR  TD-1  TD  3: NEXT: NEXT  I 
310  RETURN 
3EØ  REM 

330  PDKE  AT, 100: PDKE  SU, 100 
:PDKE  UD, 15 

340  PDKE  Hl, E: PDKE  HE, 10: PDKE  UA,ND 
:FDR  TD-1  TD  1000: NEXT 
:PDKE  IJA,ND-1 

350  FDR  TD-1  TD  100 : NEXT : RETURN 
360  REH 

370  PDKE  AT, 100: PDKE  SU, 100 
:PDKE  UD, 15 

380  FDR  I-l  TD  4:  PDKE  Hl,NDCl,n 
:PDKE  HE, 100: PDKE  WA , SA 
390  FDR  TD-1  TD  DUCl,n:NEXT 

:PDKE  UJA,SA-1:FDR  TD-1  TD  DUC  1,11 
: NEXT: NEXT 

400  RETURN 

401  PDKE  AT, 14: PDKE  SU,E01 
40E  PDKE  H1,1EØ:PDKE  UA , SA 

:FDR  TD-1  TD  100 :  NEXT :  PDKE  UJA,SA-1 
403  FDR  TD-1  TD  EØØ : NEXT : RETURN 
410  REN 

4EØ  PDKE  UD, 15: PDKE  AT, 17: PDKE  SU, 140 
430  FDR  I-l  TD  7:PDKE  HE,NDCE,n 
:PDKE  Hl ,  NLCE,  1 1  :  PDKE  IJA,SA 
440  FDR  TD-1  TD  DUCE,n:NEXT 

:PDKE  LJA,SA-1:FDR  TD-1  TD  DUCE,!! 

: NEXT: NEXT: RETURN 
450  REN 

460  PDKE  AT, 100: PDKE  SU,1EØ 
: PDKE  UD, 15 

470  PDKE  Hl,  4:  PDKE  HE,  48:  PDKE  UIA  ,  SA 
:FDR  TD-1  TD  500  :  NEXT :  PDKE  liJA,SA-l 
480  FDR  TD-1  TD  400 : NEXT : PDKE  Hl , E 
:PDKE  HE,E4:PDKE  UIA  ,  SA 
:FDR  TD-1  TD  900: NEXT 
485  PDKE  UA,SA-1:FDR  TD-1  TD  500: NEXT 
: RETURN 

490  REN 

491  PDKE  AT, 100: PDKE  SU , E50 
:PDKE  UD, 15 

49E  FDR  A-10  TD  EØ:FDR  B-EØ  TD  E7 

:PDKE  H1,A+B:PDKE  LI,  40:  PDKE  UIA  ,  TR 

493  FDR  TD-1  TD  E:  NEXT:  PDKE  UIA,TR-1 
:FDR  TD-1  TD  1 : NEXT : NEXT : NEXT 

494  RETURN 

500  PDKE  53E69, 0: GDSUB  410: PDKE  BA,1 
:FDR  TD-1  TD  EØØØ:NEXT 


510  PRINT”CCLRr’:PDKE  E51,50 
:PRINT”CSDRT,CRSR  NED7, 

CRSR  HØJRElllTILYKKE  !” 

5EØ  PRINT”CCRSR  NEDE3DU  BLEU  DEN  LYK 
KELIGE  EJER  AF  DUNGEDNEN” 

530  GDTD  700 

600  PDKE  53E69,0:PDKE  BA, 1: GDSUB  450 
:FDR  TD-1  TD  5000 : NEXT 
610  PRINT”CCLR,CRSR  NEDB, 

SDRT1”SPCCCC40-CLENCA$)31/E11AS 
BEØ  PRINT”CCRSR  NED3,CRSR  HØJRE103DU 
FIK  IKKE  DUNGEDNEN” 

630  GDTD  710 

700  PDKE  851,0: FDR  TD-1  TD  1500: NEXT 
.•PRINT”  C  CLR,  CRSR  NEDE, 

CRSR  HØJRE141DENNE  GANG” 

710  FDR  TD-1  TD  500 .-NEXT 

:PRINT”CCRSR  NED5 , SPACE6 5 TRYK  J  F 
DR  ET  SPIL  riERE” 

7SØ  GET  ANS:IF  AN$-””THEN  7SØ 

730  IF  AN$-”J”THEN  PDKE  BA , 0 : GDTD  5 

740  PDKE  E51,0:END 

1000  FDR  L-679  TD  703: READ  A:PDKE  L,A 
: NEXT: PDKE  806, 167: PDKE  807 , E 
:PDKE  E51 ,40: RETURN 
1010  PRINT  CHR$C14r’CCLR,CRSR  NED5, 
HUID,SPACEE1FIND  BDnBERNE  SKJULT 
I  SLDTTET.” 

lØEØ  PRINT”CCRSR  NED, CRSR  HØJREE5FAL 
D  IKKE  I  ET  HUL  ELLER  BLIU  SPIST” 
1030  PRINT”CCRSR  HØJREEIAF  ET  UHYRE. 
TRYK  ’L  FDR  AT” 

1040  PRINT”CCRSR  NED , SPACEE3 SPRI NGE . 
DU  HAR  3  niNUTTER” 

1050  PRINT”CCRSR  NED , SPACEE 1 T I L  AT  U 
DFØRE  DIN  DPGAUE.” 

1060  PRINT: PRINT: PRINT”  CTRYK 

FIRE  FDR  AT  BEGYNDE!” 

1065  GDSUB  10:  IF  JYOlll  THEN  1065 
1067  RETURN 

1070  DATA  7E, 138, 7E, 15E,7E, 166,851, 
E40 ,8,160, E55 , 136 , EØB , E53 , EØE 
1080  DATA  808,848,104,168,104,170, 
104,76,808,841 
1100  Cn-14336: C5-53E48 

:PDKE  56334, PEEKC56334DAND  E54 
:PDKE  1,PEEKC1!AND  E51 
1110  FDR  I-Ø  TD  10E4:PDKE  CH+I, 
PEEKCCS+I ! :NEXT 

IIEØ  FDR  I-Cn+3EØ  TD  Cn+3EØ+95 : READ  A 
:PDKE  I , ABSCA-E55! : NEXT 
1130  PDKE  1,PEEKC1!DR  4 

:PDKE  56334, PEEKC563341DR  1 : RETURN 
1140  PDKE  53E7E, CPEEKC53E7E1AND  E405 
DR  14 

1150  RETURN 

1160  DATA  E47,EE7, 846, 193,815,847, 

E35 , E35 , E55 ,34,34,34, E55 ,68,68,68 
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1170  DATA  255,231,195,129,129,131, 

199 . 255 . 255 .191.95.64.90.186. 255  , 
255 

1180  DATA  191,121,112,1,0,135,55,115, 

255 . 239 . 247 . 231 .195.195.231. 255 
1190  DATA  255,255,255,255,255,255, 

255 , 255 , 255 , 255 , 255 ,129,129, 255 , 

255.255 

1200  DATA  255,255,255,255,255,255, 

255 , 255 , 255 , 253 , 251 , 247 , 143 , 207 , 

175.255 

1210  DATA  191,121,112,1,0,135,55,115, 
255,255,231,0,0,231,255,255 
1300  PRINT  CHRSC1473 : PQKE  BA , 0 
:PDKE  BR,0 

1305  READ  L,N:IF  N— 1  THEN  G05UB  410 
:FDR  TD-1  TD  3500 : NEXT : RETURN 
1310  FDR  J-0  TD  N:READ  S:PDKE  L+ J , S 
: NEXT: GOTO  1305 

1360  DATA  1234,17,85,64,73,112,64, 

110.85.64.75.64.114.64.112.32.32, 
112,64,75 

1370  DATA  1274,16,93,32,32,107,64, 

115.74.64.73.32.93.32.93.32.32, 
107,64 

1380  DATA  1314,17,74,64,75,75,32,125, 
85,64,75,32,75,32,74,64,75,109,64, 
73 

1420  DATA  1393,20,114,64,73,73,32, 
110,85,73,110,85,64,73,112,64,75, 
85,64,73 

1421  DATA  85,73, 110 

1440  DATA  1433,20,93,32,93,93,32,93, 

93.93.93.93.64.73.107.64.32.93.32, 
93,93 

1441  DATA  93,93 

1450  DATA  1473,20,113,64,75,74,64, 
115,125,74,75,74,64,75,109,64,73, 
74,64,75, 125 
1455  DATA  74,75,-1,-! 

1500  UA-54276: ND-129: TR-17; UD-54296 
: 3D-54272 : AT-54277 

1505  BA-53281 : BR-53280 : LE-0 : SU-0 : KE-0 
:BD-3:LD-44 

1510  SA-33: SU-54278: Hl-54273: H2-54272 
: FI-40: BL-32 

1515  HX-53264: LX-53248: YS-53249 
:PDKE  53271, IrPDKE  53277,1 

1517  PDKE  53269,1: FOR  1-932  TO  896 
:POKE  I ,255:NEXT:P0KE  2040,13 

1518  POKE  53287, l:POKE  53275,1 

1520  FDR  I -50  TD  50+29: POKE  1,0: NEXT 
: PDKE  UD, 15: RETURN 
3000  PDKE  UD, 0:1-49152 

:IF  PEEKCI+21-216  THEN  3Y5  49160 
:GDTD  3025 

3010  READ  A:IF  A-256  THEN  3Y5  49160 
:GDTD  3025 

3020  PDKE  I , A: I-I+1:GDT0  3010 


3025  FDR  1-1024  TO  1062: PDKE  1,41 
:PDKE  1+960, 41 : NEXT 
3027  FDR  1-55296  TD  56295 : PDKE  1,0 
: NEXT: RETURN 

3030  DATA  1,0,216,255,255,255,40,0, 
169,41 , 133,251 , 169,40 
3050  DATA  133,253,169,4,133,252,133, 
254,169, 147,32,210,255,162 
3070  DATA  0,160,0,169,41,145,253,200, 
192,39, 208 , 249 ,24,165 
3090  DATA  253,105,40,133,253,144,2, 
230 , 254 , 232 , 224 , 23 , 208 , 229 
3110  DATA  160,0,169,4,145,251,169, 
255,141,15,212,169,128,141 
3130  DATA  18,212,173,27,212,41,3,133, 
173,170, 10,168,24,185 
3150  DATA  0,192,101,251,133,170,185, 

1 , 192,101,252,133, 171,24 
3170  DATA  195,0,192,101,170,133,253, 
185,1 , 192,101 , 171 , 133,254 
3190  DATA  160,0,177,253,201,41,209, 
18,138,145,253,169,32,145 
3210  DATA  170,165,253,133,251,165, 

254 , 133 , 252 ,76,62,192, 232 , 138 
3230  DATA  41,3,197,173,208,189,177, 
251 , 170 , 169 , 32 , 145 , 251 , 224 
3250  DATA  4,240,26,138,10,169,162,2, 
56,165,251,249,0, 192 
3270  DATA  133,251,165,252,249,1,192, 
133 , 252 , 202 , 208 , 238 ,76,62 
3290  DATA  192,169,1,160,0,153,0,216, 
153,0,217,153,0,218 
3310  DATA  153,0,219,200,208,241,96, 
256 

4000  REN 

4010  T-32: □-42: FDR  I-l  TD  7 
:GDSUB  4100: NEXT 

4020  Q=44:FDR  I-l  TD  6 : GDSUB  4100 
:NEXT 

4030  0-45: FDR  I-l  TD  3: GDSUB  4100 
:  NEXT 

4040  Q-43:FDR  1=1  TD  2: GDSUB  4100 
;  NEXT 

4050  0=47: FOR  I-l  TD  5 
4055  GDSUB  4100 

4060  IFCPEEKCPL-405  0  323DRCPEEKCPL+4 
0)<>323THEN  POKE  PL,BL:GDT0  4055 
4070  NEXT 

4080  0-49: GDSUB  4100 
4090  D-FI: GDSUB  4100:nA-PL 
4095  T-41:Q-32:FDR  I-l  TO  50 
: GDSUB  4100: NEXT: RETURN 
4100  X-CRNDCB5*3G+2) : Y- 1 NT C RND C 8 ) »20 
+  31  :  PL-Y»40+X+1024:  IF  PEEKCPLIOT 
THEN  4100 

4110  PDKE  PL,a: RETURN 
5000  PRINT”CCLR,CRSR  NEDll, 

CRSR  HØJRE14,RUS  DN5UENT  LIDT  i” 
5010  RETURN 
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Pi€€Olo 

Sortering 


Hvis  du  indimellem  har  brug  for  at 
sortere  en  større  datamængde, 
kan  du  bruge  denne  procedure.  Et 
kald  af  proceduren  med  EXEC 
quick  (a.n)  vil  sortere  de  n  første 
elementer  i  array'et  a.  Som  proce¬ 
duren  er  listet  her.  kan  den  kun 
sortere  tal.  men  kan  meget  nemt 
konverteres  til  også  at  sortere 
tekst. 

Metoden,  der  bliver  brugt,  er  en 
forbedret  udgave  af  quicksort  me¬ 
toden  og  er  mindst  1 0%  hurtige¬ 
re. 

Linie  420-550  er  kun  en  demon¬ 
stration  af  proceudren.  der.  hvis 
man  indtaster  n,  laver  n  tilfældge 
tal.  sorter  dem  og  samtidig  bereg¬ 
ner.  hvor  lang  tid  selve  sorteringen 
tog. 

Lars  Christensen 
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0010  //  Cooyrioht  (c)  by  Lars  Christensen,  Hillercjd 

0020  // - - - 

0030  //  tal-sorterings-proceduren  kaldes  med  s 
0040  //  EXEC  quick<tal,n)  hvor 

0050  //  tal  er  navnet  på  det  talarray  der  skal  sorteres. 

0060  //  n  er  antal  elementer  i  tal 

0070  //  - 

0080  PROC  quickCREF  a(),n)  CLOSED 
0090  DIM  stak(INT(L0G<n)/LDG(2) )+2, 2) 

0100  ss=l :  stak ( 1 , 1 ) !=1 ;  stak(l,2):=n 
0110  REPEPT 

0120  venst r : =stak ( s, 1 ) ;  hø j re:=stak (s, 2) ;  s:=s-l 

0130  REPEAT 

0140  i:=venstr;  jS=højre;  xs=a((i+j)  DIV  2) 

0150  REPEAT 

0160  WHILE  a(i)<x  DO  i:=i+l 

0170  WHILE  a(j)>x  DO  3:=j-l 

0180  IF  i <=j  THEN 

0190  sk:=a(i);  a(i):=a(j);  a(j):=sk;  i:=i+l;  j!=j“l 

0200  ENDIF 

0210  UNTIL  i>j 

0220  IF  j-venst r <hø j re  THEN 

0230  IF  i<højre  THEN  s:=s+-l  ;  stak  <s,  1 )  !  =  i  ;  stak  (s,  2)  !=hø  j  re 

0240  hø  j  re :  =  j 

0250  ELSE 

0260  IF  venst  r  <  j  THEN  s:=5-«-l;  st ak  ( s,  1 )  :  =venst  r ;  stak(s,  2):  =  j 

0270  venstrs=i 

0280  ENDIF 

0290  UNTIL  hø j re-venst r <=12 

0300  UNTIL  s=0 

0310  FOR  i: =2  TO  n  DO 

0320  v:=a  < i )  ;  j !  =  i 

0330  WHILE  a<j-l)>v  DO 

0340  a(j)!=a<j~l); 

0350  IF  j=l  THEN  GOTO  ud 

0360  ENDWHILE 

0370  ud: 

0c>80  a  <  j  )  :  =v 

0390  NEXT  i 
0400  ENDPROC  auick 
0410 

0420  ZONE  8 

0430  INPUT  "n  ?  n 

0440  DIM  tal(n) 

0450  PRINT  "De  usorterede  tal  :  " 

0460  FOR  i:=l  TO  n  DO  t a 1 < i ) : =RND < 1 , n) 

0470  FOR  i:=l  TO  n  DO  PRINT  tal<i), 

0480  PRINT 

0490  PRINT  "Sorting..." 

0500  tid:=SYS(3) 

0510  EXEC  auick(tal,n) 

0520  tid:=(SYS(3)-tid)/50 

0530  FOR  i:=l  TO  n  DO  PRINT  tal<i), 

0540  PRINT  CHR^<7) 

0550  PRINT  "Det  tog  ";tid;"  sek" 
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Amsfrad 

Ømeøie 


Dette  program  til  Amstrad  går  i  alt 
sin  enkelthed  ud  på  at  kunne  stu¬ 
dere  et  stykke  hukommelse  (evt. 
en  binær/ascii  fil)  i  hex  ASCII,  der 
er  mulighed  for  LOAD  &  SAVE  & 
CAT  samt  at  hoppe  rundt  i  hukom¬ 
melsen.  Desuden  kan  du  søge  efter 
et  bestemt  ord/sætning  i  ASCII 
for  derefter  at  udskifte  det  med  et 
andet.  Der  er  flere  små  finesser,  så 
som  CURRENT  ADRESS  bliver  ud¬ 
skrevet  konstant  i  både  hex  og  de¬ 
cimal.  endvidere  olyser  program¬ 
met,  om  der  er  blevet  load’et  et 
program. 

Da  programmet  kun  fylder  5K  har 
det  plads  til  rimeligt  store  filer.  og 
det  er  ganske  underholdende  at 
sætte  skægge  tekster  ind  i  spil.  el¬ 
ler  eventuelt  oversætte  dem  til 
dansk. 

Kenneth  Bemholm 


m 


f\\< 


1  ’  Semantics  Monitor  vi. O  By  Kermit  The  Steelfrog 

2  ’  For  TAST  -  Det  danske  programblad 

3  ’ 

4  la=10OOO:ca=la: If i l$="NONE" 
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5  MODE  2:B0RDER  1:INK  0,1:INK  1,26:WIND0W  ttO,  1,80,  1,25:  WINDOW  ♦»!  ,  9, 49, 7,  17:  windo 

W  #2, 51 , 71 , 7,  17:  WINDOW  , 9 , 7 1 , 22 , 25  :  PAPER  ♦♦0,0:PEN 

♦»o,i:paper  ♦♦i,i:pen  ♦ii,o:paper  #2,i:pen  ♦♦2,o:paper  ♦♦3,i:pen  ♦»3,o:cls  «o:cls  »i:c 
LS  #2:CLS  #3 

6  LOCATE  «0,1,1:PRINT  #0,"  ";CHR*<24>;“  Semantics  Monitor  vi. O  -  By 

Kermit  The  Steel+rog  87  CHR$ ( 24 ): LOCATE  #0,9,5:PR 

INT  CHR$(24)  ;  "Hexadec  imal  code  CHR*  ( 24 ):  LOCATE  *»0, 51 , 5:  PRINT  CHR*  ( 24  )  !  “  Ase  i  i  co 
de" ;CHR*(24) 

7  LOCATE  9,20:PRINT  CHR* ( 24 ) ; " User s  ai d " j CHR* ( 24 ): LOCATE  9,2i:PRINT  "CTRL+I  :  In 
sert  Text" 

8  LOCATE  »3,  1,  l-.PRINT  #3,  "TAB  :  Screens  "  ;  CHR®  <  240 )  ;  "  CAPS  LOCK  :  Screens  "  ;  CHR 
$(241);"  CTRL  +  L  :  LOAD  pr  ogram"  :  LOCATE  ♦»3,1,2:PRIN 

T  ♦♦3,  CHR$(24)  ;  "CTRL  +  W  :  Search  Tor  a  particular  word  CTRL  +  S  :  SAVE  program";C 

HR$ (24) 

9  LOCATE  ♦♦3,  1 , 3:  PRINT  #3,"CTRL  +  R  :  Restarts  Semantics  monitor  CTRL  +  C  :  CAT" 

:L0CATE  tt3,  1 , 4:  print  ♦♦3,CHR$(24)  ;  "CTRL  +  J  :  Jump  to  L 

OAD/START  address  CTRL+P  :  Speci+y  j umpadd . " ; CHR$ ( 24 ) : GOSUB  63:F0R  a=Z2  TO  25:L 
OCATE  71,a:PRINT  C_HR$  (  32  ):  NEXT  :  GOSUB  58 

10  LOCATE  »O,  1 , 4:  PRINT  *»0  ,  CHR$  (  24  )  ;  "  Cur  r  en  t  "  ;  CHR$  (  24  )  :  LOC  ATE  »0,1,5:PRINT  iiO,CHR 
$(24) ; "address";CHR$(24) :G0SUB  39:G0SUB  33 

11  GOSUB  63: IF  INKEY (62) =128  THEN  12  ELSE  13 

12  CLS  «0:CAT:PRINT  WO,  CHR$  (24)  ;  "Press  any  key  "  ;  CHR$  (  24  )  :  CALL  8<BB03:CALL  8£BB18:G 
OTO  5 

13  IF  INKEY (35) =0  THEN  64  ELSE  14 

14  IF  INKEY (50) =128  THEN  15  ELSE  16 

15  CALL  R£BB03:G0T0  4 

16  IF  INKEY (36) =128  THEN  17  ELSE  21 

17  GOSUB  20:L0CATE  #0, 25, 20: print  CHR$(24) ; "Load. ;CHR$(24) ;: input  l+il$:GOSU 
B  20:L0CATE  #0, 25, 20:  print  CHR$(24)  ;  "  Ir.to  address..: 

" ;CHR$(24) ;: INPUT  la:GOSUB  20:L0CATE  tt0,25,20 

18  PRINT  CHR$(24)  ;  "Lenght.  CHR$(24)  ;:  INPUT  1 1 : GOSUB  20:G0SUB  56 : OPENOUT "  ! d " : M 
EMORY  la-l:CLOSEOUT:LOCATE  #0, 25, 20: PRINT  CHR$(24);" 

Loading  " ; 1 + i  1 $ ; CHR$ ( 24 ) 

19  LOAD  "  !  "  +  l-f  i  1$,  la:GOSUB  58 :  ca=  1  a :  GOSUB  57:G0SUB  33:G0T0  11 

20  LOCATE  #0, 25, 20:  PRINT  *»0,  STRING®  (  50,  "  "  )  :  CALL  RcBBOS  :  RETURN 

21  IF  INKEY (60) =128  THEN  22  ELSE  24 

22  GOSUB  20:L0CATE  »iO  ,  25 ,  20  :  PR  I  NT  #0,  CHR®  (  24  );  "Save  ...:";  CHR®  (  24  );:  INPUT  ♦♦0,s-fil 
®:G0SUB  20:L0CATE  «0, 25, 20: print  #0, CHR® (24) i "Execut 

ion  address. CHR® (24) ;: INPUT  »O, exa: GOSUB  20 

23  LOCATE  »O,  25, 20:  PRINT  CHR®  (  24  )  ;  "  Sav  i  ng  “  ;  s-f  i  1  ® ;  CHR®  ( 24  )  :  SAVE  "  !  " +sf  i  1  ® ,  b ,  1  a,  1 
t,exa:GOSUB  2O:GOT0  11 

24  IF  INKEY (68) =0  THEN  25  ELSE  26 

25  ca=ca-220: GOSUB  33: GOTO  11 

26  IF  INKEY (70) =0  THEN  27  ELSE  28 

27  ca=ca+220: GOSUB  33: GOTO  11 

28  IF  INKEY(45)=128  THEN  29  ELSE  30 

29  ca=la:GOSUB  33:G0T0  11 

30  IF  INKEY (27) =128  THEN  31  ELSE  32 

31  GOSUB  20:L0CATE  «0, 25, 20: GOSUB  63:PRINT  CHR® ( 24 )  ;  " Spec i  ty  j umpaddr ess.  .  .  :  " ; CH 
R® (24) ;: INPUT  sj a: ca=sj a: GOSUB  33:G0SUB  20:G0T0  11 

32  IF  INKEY (59) =128  THEN  41  ELSE  59 

33  LOCATE  2,7:PRINT"  ":  LOCATE  1,8:PRINT  #0,"  "  :  CLS  ♦♦i:CLS  ♦♦2:G0SUB  39: 

GOSUB  56:  pa=ca:  LOCATE  #0,2,7:PRINT  "  Bc " +HEX$  ( ca )  :  LOCA 

TE  «0,1,8:PRINT  «0,ca:F0R  hexrow=l  TO  li:FOR  hexcol=l  TO  40  STEP  2:L0CATE  #l,hex 
col , hexrow: PRINT  #1 , HEX® (PEEK ( pa) ,2) 

34  pa=pa+l:NEXT  hexco 1 , hex r ow : pa=ca 

35  FOR  ascrow=l  TO  1 1 : FOR  a5CCol=l  TO  20: tegn=PEEK (pa) : IF  (PEEK(pa)<32)  OR  (PEEK 
(pa)>255)  THEN  tegn=ASC  (  " .  " ) 


TAST -29 


TAST 
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TAST  -  31 


TAST 


5?  POKE  i.4336+2S4;8+' J..  255 
POKE  1 4336+31  *8+.. T. 
255-PEEKa4336+46#8+J>  ■  HEXT 
57  IiflTfl  255 ..  243  .•  243  ,.192. 243  .•  243  .■  255  .■ 
255 

Gø  FOR  J=0  Tø  15: READ  q 
:  prikF  i  4ft56+.T  .  Q  :  HFXT 
:  DATA  254 , 254 . 252 24ø 232  ,.156. 235 . 
247 

61  DATA  127..  127..G3..  15.23..57..215,.239 
35  D-55296-lø24:FøR  J=lø24  TO  1503 
:IF  RMD';;1>>.9  THEA  POKE  .T..31 


735  DATA  ø ..  ø  .■  ø  ■  ø  .•  ø  .■  ø  .•  0 0  .•  0  .•  0  .•  0  •  0  ••  0  •  0 
0 ..  0 ..  0  0  0 0 ..  0 

74«  DATA  0 8  .■  ø  .•  ø  .•  8 ..  ø  .■  ø ..  28  .■  ø  .■  ø  .■  28 ..  ø ..  1  .■ 

255 1 92 ..  3 ..  255  .•  224 ..  1 27 ..  1 27 ..  1 27 
750  DATA  30 ..  62  .■  6ø 3  .■  99 ..  96 1 1 93  .■  1 92  .• 

^  .  0 ..  0 . 0 ..  0  0  0  ^  0  0  0  /  0  ^  0  ^  0 

770  DATfl  0 . 1  28 . 0 32  ■  32  .  ø .  ø  .■  2 ..  ø  .•  1  ø  .■ 

128  ,.2..  40,2.0,.  152. 130. 128..  96..  128. 

1 30 

780  DATA  1 28 . 1 5ø . 1 36 . ø . 1 . 2 1 5 . 64 . 2 1 5 . 
64.1 28 . 1 25 . 1 0 . 0 . 20 . 1 3ø . ø . ø . 1 28 . 96 . 

1 05 ..  0 


:POKE  .T+D.  8 

:  .J=..J+1 

DATA 

0 

C‘~? 
o  1 

POKE  .T.28:P 

OKF  .T+Ti, 

8 : NFXT 

i 

54 . 6 . 0 

,  1 

:  03:=  "SCORE" 

790 

FOR  T 

= 

FOR  J=i  TO 

5 -POKE  1 

0123+.J . 

:  NÉXT : 

Fi 

ASC'TlIDT'rQ:*: 

.  J.  1>:>“6 

4 

:  POKE 

.T 

POKE  1023+ 

■J+D.  0 :  NE 

xr  : POKE 

1029. 53 

792 

DATA 

0 

89 

FOR  ..T=lø29 

TO  1035: 

POKE  .T+D 

.  0 : NEXT 

116.0. 

1 

: NS=3 : GOSUB 

50010  :  SC 

=0 : GOSUB 

5010 

8001 

V=532 

4: 

901 

FOR  .T=l  TO 

10 : RFAD 

Q;priKE  0 

“47’ .  64 

:  prik  F 

1  ^1, 

:  NE74T 

:  POKE 

1  ^1. 

95 

DATA  1087.1 

090 . 1 1 65 

. 1212. 12 

51. 

805 

POKE 

2i 

1290. 1331. 1 

297. 1371 

..  1413 

:  POKE 

1 » 

110 

FOR  .J=l  TO 

16 

FOR  J 

= 

113 

G=ø 

810 

POKE 

1 

115 

IF  .T>5  THEN  IF  .T,-'2 

=  INT<.T..-‘2 

>THEN 

815 

FOR  ..T 

rr' 

F=F +40  :  01=40 

:  NEXT 

120 

READ  0: 

900 

TF  VC 

>! 

130 

T=1+..T 

9 1 0 

X= 1 60 :  1 

140 

FOR  X=ø  TO 

1 ft-T : M= 

1344+.T*4ø+K 

:  POKE 

1  1 
\* 

:M=1344+J*4ø+39-X 

:  POKE 

V* 

1 50 

Q=M : GOSUB 

500 ; Q=H : 

GOSUB  5010 

920 

POKE 

•y 

160  NEXT  K 

170  FOR  I  =  1364+J*4ø  TO  1444+J'*4ø+F  S 
TEP  40 

1 80  Q= I -T- 1 : GOSUE  500 : Q= I +T : GOSUB  5øø 
190  HEXT: 1=1-40 
200  FOR  H=I-T-1  TØ  I+T 
210  0=H: GOSUB  500 :Q=H-G: GOSUB  5øø 
: MEXT : NERT : GOTO  700 
300  DATA  32.27. 29. 32.27.29.29.32. 32. 
27 . 27 . 29 . 29 . 29 .  3!2 ..  3i2 

500  IF  Q62024  THEM  POKE  Q. C 
:POKE  Q+D..8 

501  RETURN 

700  IF  PFEK<832::'=33  THEM  3øø 
705  FOR  J=ø  TO  2: FOR  I=ø  TG  62:RFAD  Q 
:  POKF  332+.T#64+  I  .  Q  :  NEMT  :  NEXT 
7 1 0  DAT A  33 .  ti .  ø  .  64 .  1 28 .  ø .  1 4ø .  64 .  ø . 

1 58 . 64 . 0 . 243 .  1 92 .  ti .  1 58 . 64 .  ø .  1 4ø .. 

64 . 0 

720  DATA  64.128 .  ø .  33 .  ø .  ø .  ø .  ø .  ø .  ø .  ti .  ti . 
0 ..  01 . 0 . 01 . 0 ..  0 .  0 .  01 . 01 

7301  DATA  0 . 01 . 0 . 01 . 01 . 01 . 01 . 0 . 0 .  0 . 0 .  ø .  ø .  ø . 

øl  .  01 .  øl .  01 . 01 . 01 . 01 


6  THEN  GOSUB  2øøø 
925  POKE  49152. 6: POKE  49153.6 
:POKE  '...'+46,0 
•h3ø  A't'S  5301010 

933  S=54272:P0KE  S+24.15:P0KE  S+5.  1 
POKE  S+6. 128: POKE  5+4.129 
:P0KE  S+1.12 
980  A-ø 

990  IF  A>ll+L'v'*3  THEN  6øøø 
995  IF':;PEEK<56321  ■•AND  16::'=ø  THEN  GOS 
I  IB  62010 

1000  FOR  .1=1  TO  6:  TF  PNDa  l-LV/20 
>OR  X':;J><>0  THEN  1ø5ø 
1005  POKE  2040+J.  13::K<.T>  =  18ø:'t'';:j::'  =  12ø 
: A=A+1 

1010  nr;  •:  ..i =rnd  a  >  i*  5+l v.-'2  >  -2--L v,-3i 
:POKE  V+39+J.  INT<RNDa):*3+ø> 

:R  =1.4 

1020  POKE  V+J4;2..M<.T>  :POKE  V+l+J:*2. 

't*  c  t  > :  POKF  V.'+2 1  .  PFFK  C  './+2 1  >  OR  2 1 J  > 
GOTO  lø;3øi 
1050  HENT 

1080  FOR  .T=l  TO  6:IF  K-:.t;:.=ø  THEN  NEKT 
:GOTO  1110 


32  -  TAST 


TAST 


]ø85  I.F  VCJXlbø  OP  R':;  J:;'--£  THEN  1095 

5002  RETURN 

3  ø9iT  prik  F  V+2'^  •  PFEK  V+29  >  OR  '•  2  tJ  > 

5010  S#=STR^(SC:;:' :FOR  J=1  Tø  LEN  C  S#;. 

:  priPE  V+23..  PEEKv  V+23>0R':;2tJ> 

:  POKE  1  029+.T ,  RSC  M I D#  <  S$ ,  J ,  1  >  > 

;p.:.T)=F:MV,:  Tj=N;;.:.Ti#2 

:  NÉxf 

1CH92  FITR  N=P+7  TO  S+13-P0KE  N..  ø  HCi-'-iT 

5013  0=INT<SC/løøø> ■ IF  0>P  THEN  P=0 

1øh3  POKE  S+24..  15X0k:£  S+12..207 

:  NS=N8+  1  :  009!  lp  5000  :  OOSI  lp  5050 

PORE  S+13..  ø:POKE  S+S..  10 

5016  RETURN 

POKE  S+11.33 

5020  FOR  1=1  TO  2 : POKE  lø64-NS*3+I , 28 

1  095  V  T  =  V  >;■  T  ■)  +R  •;  J  :•  :  k‘  C  J  ;•  --K  C  J  :•  +M”;  J  > 

41EXT:NS=NS-1 : IF  NS>=ø  THEN  RETURN 

3  Ifiø  priKF  V+Jif2.X‘::j>  ;POKE  V+l+J*2.. 

502 1  PR  I  NT  "  c:  CLR ,  CRSR  NED  1  ø , 

V  >'■  J  > 

CRSP  Hø.TRE14>GRME  OVER" 

I1fi4  TP  V.:  J><'?22  RNTi  PFEK(:2ø4ø+J)  =  13 

5022  PR  I  NT  "<  CRSR  HØ.TRE14, 

THFN  1107 

CRSR  NED  COPVR I GHTØ 1 986  " 

1 1 R5  X  C  T  =0  :  POKE  V+2 1  .■ 

5023  PRINT"  OJRSR  HØ..TRE14, 

PEEK  V+2 1  ;■  AND  C  255-2  tJ ) 

CRSR  NED>BV  GIL.L.S" 

3  10b  POKE  V+29..PEEK<V+29::.flND';;255-2tJ> 

5031  POKE  56334.  PEEK':;  56334  >RND  254 

: POKE  V+23 . PEEK  C  V+23  >  hND  <  255-2  tJ  > 

5032  POKE  788. 49: POKE  789,234 

1107  NEXT 

5033  POKE  56334  .  PEEK-:: 56334;:- OR  1 

1110  IFrPEEK'::V+30)RND  1:K>1  THEN  990 

:POKE  198,0: POKE  53249,0 

1111  POKE  V+21 1  :  POKE  S+1 1  .•  ø 

POKE  54296,0 

1120  POKE  S+1..  4  FOR  I-a  TO  lø 

5034  INPUT"  CRSR  HØ.TRE14, 

:POKE  S+24..  15-RBS':;6-I> 

CRSR  NED::'ET  NVT  SPIL  U/N>  " 

:Fnp  .T=ø  TO  7:  POKE  V+39..  .J 

5035  IF  KK$=".T"THEN  RUN 

1130  FOR  H=1  TO  IøHIEXTHJEXT^NEKT 

5036  IF  XK$="N"THEN  END 

:P0KE  S+24.15:P0KE  S+l,.  12 

5050  FOR  N=S+14  TO  S+2ø : POKE  N , ø : NEKT 

1 1 40  GOSUB  5020 : K=PEEK  <  V+3ø  > 

5051  POKE  S+24,15:P0KE  3+19,61 

: OOT 0  1 000 

: POKE  S+ 1 5 , 30 : POKE  S+ 13,17: RETURN 

2000  .T=ø:RERri  T  IF  TC999  THEN  STOP 

6000  POKE  V+21, 1  FOR  .T=5  TO  1  STEP-1 

2002  RERD  Q:IF  0>=ø  THEN  POKE  J+T..Q 

:POKE  49153,..T:F0R  i  =  132-.T*2ø  fo  1 

.T=,T+l  :  GOTO  2002 

42-J*2ø:P0KE  S+l, I 

2004  IF  00-99  THEN  GOTO  2øøø 

6010  FOR  H=1  TO  40 : NEXT : NEXT : NEXT 

2006  RETURN 

:  SC-SC+I  Vif  75  :  GOSIJB  50 1 0 

2020  riRTR  49 1 72  .•  2ø6 ..  ø 1 92 ..  1 73  .■  ø  .•  1 92 .. 

FOR  J=1  TO  30øø:NEXT:LV=LV+l 

240..  3..  76..  100..  192 

6020  FOR  .T-2  TO  6 :  POKE  49153,  .T 

2030  TiRTR  173.1  .1  92 .141.0,1 92 ,  1  b2 ..  1  . 

:FOR  I  =  142-J#2ø  TO  132-J4!2ø  STEP-1 

254 , 32 ..  208 ,189,32..  2ø8 , 4 1 , 255 , 233 , 

:POKE  S+l, I: FOR  H=1  TO  4ø 

253 . 48 . 9 

6030  NEXT  :  NEXT  :  NEXT  :  l.J=l.J+l  :  E=E+2 

2040  DRT R  222 , 32 , 2ø8 , 222 , 32 , 2ø8 , 222 , 

6040  GOTO  980 

32 , 208 

8200  MV=  1  86-PFFK  V  ■'  "> /? 

2050  DRT R  232 , 224 , 4 , 2ø8 ..  23ø ,  76 ,  1  øø , 

■  POKE  V+ 1 4 ,  PEEK  V  >  + 1 2+MX 

192,-1 

: POKE  V+15, 195  1=3 

2080  DRT R  49252 , 1 73 , 1 , 22ø ,41,4, 2ø8 , 

6210  POKE  V+2 1,  PEEK-' V+21  OR  128 

15.1 73 . 0 . 208 

FOR  .1=195  TO  13ø+LV*2  STEP-3 

2090  DRT R  233 ,  1  ø5 , 48 , 8 ,  1 73 ,  ø ,  2ø.8 , 233 , 

6220  POKE  V+ 1 5 ,  .T :  I  =  I  +  3. 

4, 141,0,208 

:  I F  1=5  THEN  I =0 : POKE  V+ 1 4 , 

3000  DRT R  1 73 ,  1 , 22ø  ,41..  8 , 2ø8 ,15,1 73 , 

PEEK-::V+14>+MX 

0 , 208 

6280  K=PEEKvV+80>  :  TF.::K  HND  128:>=ø  TH 

EN  NEXT:GOTO  63øø 

30 1 0  DRT R  233 , 2 1 8 ,16, 8 , 1 73 , ø , 2ø3 , 1 ø5 , 

6234  FOR  N=S+14  TO  S+2ø : POKE  N,ø:NEKT 

4,141,0, 208 , 76 , 49 , 234 , - 1 

62:35  POKE  S+24,15:P0KE  S+l 9, 14 

3050  DRTR  53000,120,169,20,141,20,3. 

POKE  S+15,2:P0KE  S+l 8, 129 

1 6*9 1. •  1  *4 1  «  2 1  .•  3  .*  •  96  .•  *'99 

6240  FOR  .T=l  TO  6:IF-;K  flND':;2  tJ::' ::'=ø  T 

5000  IF  NS>6  THEN  NS=6  SC=SC+375 

HEN  NEXT 

: GOSUB  5010 

6250  POKE  2040+.T ,  1  5  :  SC:=SF:+2'5 

5001  FOR  .T=iø62  TO  lø65-NS*i3  STEP-3 

GOSUB  5010 

:  POKE  T  .  65  :  POKE  .T+ 1 , 66  ■  POKE  J+D ,  ø 

6:300  POKE  V+21 ,  PEEK  C  V+21  AND  1:27 

POKE  .T+l+Iuø  HEXT 

: RETURN 

TAST  -  33 
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VIC20 


KtNO~KONG 


—  “-»CX ' 


Siger  navnet  dig  noget?  Yderlige¬ 
re  forklaring  burde  være  unødven¬ 
dig.  men  alligevel:  Du  er  en  stor 
abe.  der  skal  forcere  en  masse  rul¬ 
lende  tønder  på  vej  op  til  toppen  af 
skærmen.  Spillets  ide  er  ikke  su- 
pemy.  men  grafikken  er  flot  og 
gennemført!  Alletiders  abe-gode 
action  til  en  uudvidet  VIC-20. 

Claus  L  Pedersen 
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0  REM  5  **CLHLIS.PEIiERSEN*i*: 

I  001046 

2.  L=L-W  :  RRlNT"aa"L"ll  "  :  I  FL<;WTHEN42 
j  OH.Jij0T027>  30^  35<  35/  35<  35 

4  P0KE37154/ 127;  Jø=-<<PEEK<37152>fiND12S>=.  ):  P0KE37 154 ,255 ;  2=--PEEK< 37151 ):  J2=- 
NIil6>  =  .  > 

5  K=-(:<20MljE)=.  >  ;  IFJ00RPEEK<197)=34THEND=W  001022 

6  IFJ20RPEEKa57>=33THEHD=-H :  IFPEEK';F1+D>G0T02ø 

7  IFX0RPEEK< 1 57>=35 THENPOKEV-2/ 1 5ø : J=W : L=l.-2ø • G0T027 

8  F=F+H;  IFPEEKCF)=ETHENP0KEF-W/E:P0KEF,6+INTCRHD<.  ; GOTOl  1 

9  IFP£EK<F)=.THENP0KE7711/ 15;POKEF-H/E;F=7712:GOT014 

1 0  POKEV-W ,140: POKEF-W , E : G0T039 

II  IFPEEK';F+22>  =  .TH£H14 

12  P0KEF,E;F=F+22:P0KE7711, 12:  IFPEEK<:F)=ETHEHP0KEF,6+INT<RND<'.  )*2)  :G0T014 

1 3  POKEF ,  25 :  POKEV  -W ,  1 4ø :  G0T035 

14  G=G+M : IFPEEK<G>=ETHEHPOKEG-W, E : POKEG, 6+INT<RHD<; . >*2) : G0T017  . 

1 5  1 FPEEK  C  G  >  = . THEUP0KE77 11,15: POKEG-W , E : G=77 1 2 : G0T02 

1 6  POKEV-W ,140: POKEG- W , E : G0T035 

17  IFPEEK03+22>=.THEH2 

18  POKEG,  £:  0=0+22  :P0KE7711, 12:  IFPEEK<G)=ETHENP0KEG,6+IHT<RHIi<.  >i»i2>  :G0T02 

1 9  POKEG , 25 : POKEV-W , 1 4ø : G0T039 

20  IFPE£K<Fi+D)=ETHEWfl=Fl  +D :  POKEfl-D,  E :  POKER,  3 :  G0T08 

21  POKEfi,,E:fl=R+D- POKER,  25;  POKEV-W,  16ø:G0T039 

22  IFPEEK<R+D>=ETHEHR=R+D : POKER-D, E : POKER, 5 : G0T024 

23  IFPE£K<R+D>=6THENP0KER, E : R=R+B : POKER, 25 : POKEV-W, 160 : G0T039 

24  IFP£EK<R+22>=.THEN8 

25  POKEV-2 , 1 40 : 1 FPEEK  t  R+22 ) =ETHENPOKEfl , E : R=R+22 : POKER , 5 : POKEV-2 , . : G0T08 

26  POKER , E : R=fl+22 : POKER , 25 : POKEV-2 , . : POKEV-W , 1 6ø : G0T039 

27  J=J+W : IFPEEK<R-22>=ETHENR=fl-22 : POKER+22, E  =  POKER, 4+D : G0T03 

28  IFPEEK<R-22)=WTHENfi=R-22 : POKER+22, E : POKER, 4+D : G0T043 

29  POKER, E : R=R-22 : POKER, 25 : POKEV-W, 16ø : G0T039 

30  POKEV-2, 160 ; J=J+W : IFPEEK<R+D)=ETHENR=R+D : POKER-D, E : POKER, 4+D : G0T033 

31  IFPEEK(R+D>=WTHENR=R+D : POKER-D, E : POKER, 4+D : G0T043 

32  POKER ,  E : H=R+D : POKER , 7 ; POKEV-W , 1 Gø : G0T039 

33  I FPEEK < R+22 >=. THEM J=. : POKEV-2,. 

34  G0T08 

35  POKEV-2, 140 : J=J+W : I FPEEK < R+22 >=ETHENR=fi+22 : POKEfl-22, E : POKER, 4+D : G0T037 

36  POKER, E : R=fl+22 : POKER, 7 : POKEV-W, 160 : G0T039 

37  IFPEEK<:R+22>=ETHEH8 

38  POKEV-2, . : J=. :GOTO& 

39  POKEV-2,.  :  POKER,  25:  POKEV-W, .  :  pRINT"aa«kj!l«(WitiTj1iTV0iJ'RE  DERD" 

40  I FPEEK  < 1 97 ) =ETHEHRUW 

41  G0T040 

42  POKEV-2, .  :PRINT'‘a  asHHWiTjTiTiWEkJOUT  OF  ENERGV"  :GOT04ø 

43  POKER,  8 :  F0RX=lT02ø  :  POKEV-2,  INT<RWD<  1  )#lø+240>  ■•F0RV=1T060 :  NEXT :  HEXT  :  POKEV- 
POKER,E 

44  R=3161 :F-P+1 :.J=. : IFP<3THEN0NPG0T059, 62 

45  PRIWT"aa!ftW«itf:TiTiT:TiT:Tit:TjKVOU  WIN !  !  "  :  G0T040 

46  PR I NT  n- : P0KE52 , 28 : P0KE56 , 28  ?  P0KE5 1 , PEEK ( 55 ) : CLR ; R=256*28+PEEK  <  5 1 ) 

47  F0RX=256T0264 : POKEX+R, . : NEXT : FORX=. T0127 : RERDD : POKEX+R, D : NEXT : V=36878 : POt 
,  255 

48  POKEV, 15: POKEV+1, 104: R=8161 :C=2 

49  DRTRiiiSS, 255, 24, 86, 66, 129, 255, 255, 5o, 56, 48, 6ø, 48, 43, 48, 56 

50  DRTR28, 28, 12, 60, 12, 12, 12, 28, 28, 28, 12, 60, 12, 28, 22, 5ø, 56, 56, 48, 6ø, 48, 48, 48, 

51  DRTR56, 56, 48, 6ø, 48, 56, 104, 76, bø, 126, 219, 231 , 281 ,219, 12&, oO, 6ø, I2t>, 289, 22, 
,247 

52  DRTRl 26, tø, 23 1 , 23 1,1 95, 255, 1 95, 1 95, 1 95, 231 ,3,7,5,7,5,t>,31, 63, 192 , 224 , 1 6G , 


160 

53  DRTR96,248,252, 127,255,238,238,237,207,239,231,254,255, 119, 119, 183,243,2-! 
1,7, 15, 15 

54  DRTR14, 14, 3ø, :30, 3ø, 224, 240, 24ø, 1 12, 1 12, 120, 120, 120,252,254,254,239,231,2; 
7, 195 

55  pRiNT“7fir:^r^TiT:T:r^:r:i  k  R  R  Rfiiiiiiiii  joii 
Iteistføø"  i 


57  PR  I  NT "  wieewøøwiisøesniiifni-!  ” ;  gosubgs 

53  G=79øl : F=7712 : D=-l : POKER, 2 : E=32 : L=2øøø : W=1 : G0T02 

59  pRiNT":iii':T;iririi^TiT:r^ii  k  R  R  fjaiiiiiii  >11 
13 

60  PR  1  NT "  wkiiøøiiiiaijøøeDikiiøee'kikiiøøøjiiiseøøikakiiiøiiDiiiiøeeiiiieeøøiiiiiiøøøneøee  “ ; 

61  PRINT "  MfeøeeMieeeeøeeeeeeeøøseeeeenBnia  '• ;  gosubgs  :r=816ø:poker,2--f=7712:g 
5:G0T02 

62  pRiNT":ii'ij^iriTiir:i^i  k  R  MiliiKiiii  >11  øeøøaaee@8>iieøøø>ii(iiiieiieee>ii^e>iiei<!>v' 
øse"; 

63  pRiNT">ii°ø>l>]!e>»j!øøø>]iøøeø>i»a@øi‘i>iieøøøø>iiiiøeQ8>iij!øe>ii>a@)aiaee(iaa>iiiQøiif"; 

64  pRiNT‘'>iii!esiaøi2eisiiieeeeøeeii!eeenianii!" ;  gosubgs  fl*8i6ø ; poker,  2 ;  f=7712 ;  0=7945 ; 
2 

65  PR  I  NT  •'  SfiT:t:TiT:T:TiTj»l  I  JMlKLMit-INiftllteee  “ ;  =  RETURN 


TAST 


36  -  TAST 


TAST 


i  di  9  Fitfi'it  al  ove  rs  kué  “  '  '  "hvid  Ui 

2590  GO  TO  2200 

n  har  af  p  rog  rariiiiie  r  paa  . baari 

2600  LPRINT  :  LPRINT  TAB  3;  "SIDE 

d  e  n  a  " 

2":  LPRINT  ;  LET  5=1:  GO  TO  257 

30  PRINT  •••'"Der  er  2  riiuliahtde 
r  lii  f  0  rs  i  den  "  '  •■  "en  len  en  dCRCc 

0 

2650  PRINT  -:  PRINT  TAB  S;  "SIDE 

N*  eller  TEKST" 

2";  PRINT  ':  GO  TO  2720 

40  PRINT  oø;"Tr'j|i.  en  lasl  for 

2700  CLS 

al  ilarie";  PAUSE  ø 

2705  FOR  n=l  TO  1 

50  CL5  ;  PRINT  AT  4,0; "TAST  1 

2710  PRINT  ;"  "  AND  a(n)<løø,"  " 

for  en  åCRtENS  ";AT  6,ø; "TAST  2 

AND  a  i.n  )  <  10,  a  (n )  ;  " -" ,  "  '  AND  b( 

for  en  TEKST"; AT  S,0,"Tft5T  3  fOf 

n )  < 100 ; "  "  AND  b ( n )  < lø , b  ( n  j ; "  • ; 

ai  STOPPE" 

2'?  15  IF  a(n4(l  AND  n<l)j<ainF  TH 

55  PRINT  AT  14,0; "Delle  progra 

FA  inddeler  selv  baan . del  i  si 

EN  GO  TO  2650 

de  1  09  2" ' ' "Rygle ks len  er  seivj 

2720  NEXT  n 

usle  rende" 

2730  INPUT  "Er  du  li  1  freds  FAed  d 

60  INPUT  s 

70  IF  S<1  OR  s >3  THEN  GO  TO  60 

e  1  le  (  j  /n  )  " ;  w  * 

2735  IF  W*="J"  OR  W*="j"  THEN  GO 

SØ  GO  TO  20004(500  AND  5=2) -(1 

TO  2545 

000  AND  5=3) 

2740  INPUT  "Hvilken  linie  Skal  r 

1000  STOP 

elles  ";n:  LET  k=l:  GO  TO  2515 

2000  CLS  :  PRINT  AT  10,0, "GØR  DI 

2755  IF  a(n4(l  AND  n<l))<a(n)  TH 

N  SCREEN$  KLAR  FRA  BAAN-  DET  , 

EN  GO  TO  2650 

OG  TR-.K  EN  TAST  ,  NAAR  DU  ER  KLA 

2780  DIM  y*(32) 

R" 

2761  FOR  n=l  TO  SI:  READ  3:  LET 

2005  PAUSE  0 

y*(n)=CHR*  3;  NEXT  n 

2010  LOAD  ""SCREEN* 

2790  PRIt-FT  AT  0,0;  y* 

2012  LET  1=0 

2300  LET  P=0 

2014  REM  2015=  @  AAAAAA  OSV  B 

2310  FOR  n=514564P  TO  5147l4p .  P 

2015  LPRINT  " - 

OKE  n , 0 ;  NEXT  n 

—  —  —  —  —  —  —  —  —  — - 

2312  FOR  n=515524p  TO  515S34P :  P 

2020  C  OP-,- 

OKE  n,0:  t'FEXT  n 

2100  LPRINT  :  LPRINT  :  GO  TO  22ø 

2315  IF  P=0  THEN  POKE  51563,192: 

0 

2200  CLS  :  PRINT  AT  lø,0;"Tek5le 

POKE  51569,192 

2320  FOR  n=515344p  TO  516634P;  R 

n  i i l  k  a  5  e  1 1  e  n  5  bagside"; AT  12 , ø 

EAD  a :  POKE  n , a .  NEXT  n 

,  "  fn  a  X  .  16  k  a  r  a  k  1  e  r  e  r  " 

2330  FOR  n=516644P  TO  517194p:  P 

2205  PRINT  AT  16,0. "KUN  STORE  BO 

OKE  n,ø:  NEXT  n 

GSTAUER  ,  TAL  OG  . " 

2340  FOR  n=517204P  TO  519274P:  R 

2203  POKÉ  23653,6 

EAD  a :  POKE  n , a :  NEXT  n 

2210  INPUT  "leksien  ";a* 

2350  FOR  n=5192S4P  TO  519754P:  P 

2220  POKE  23658,0 

OKE  n , 0 ;  NEXT  n 

2299  GO  TO  3300 

2360  FOR  n=519764p  TO  S21334P :  R 

2500  CLS  :  PRINT  AT  3,0;  INUERSE 

EAD  3:  POKE  n,a;  NEXT  n 

1;;|  MAXIMUM  23  PROGRAMMER 

2362  FOR  n =514724?  TO  515S14P:  R 

EAD  a:  POKE  n,a;  NEXT  n 

2501  INPUT  "Hvor  fAange  p r og rafArAe 

2365  IF  P=1024  THEN  GO  TO  2900 

r  ?  (1-23) " , l 

2370  LET  P=1024 

2502  IF  l>23  THEN  GO  TO  2500 

2380  GO  TO  2310 

2504  LET  k=ø 

2900  FOR  n=0  TO  31:  READ  3:  POKE 

2505  DIM  3(1):  DIM  b(l):  DIM  C*( 

USR  "a"4n,a:  NEXT  n 

1 ,24) 

2950  GO  TO  10 

2510  FOR  n=l  TO  1 

2990  DATA  127,32,77,79,71,69,73, 

2514  PRINT  AT  19, ø;" 

83 , 32 , 65 , 66 , 82 , 65 , 72 , tb , 77 , 33 , 69 

' ' 

2515  PRINT  AT  20,0,  "FØRSTE  TAL  •? 

"  ;  n  ,  "  .  " ;  "Progra  fa  " 

3000  DATA  0,0,15,15,60,60.51,51, 

2520  INPUT  a(n) 

2523  PRINT  AT  20,0,  "ANDET  TAL  •? 

"  ;  n ;  "  .  "  ;  "Pr og  r sfa  " 

0 , 0 , 0 , 0 , 0 , 63 , 63 

2525  INPUt  b(n) 

2527  PRINT  AT  21,0;;; 

3005  DATA  0,0,43,43,51,51,51,51, 

0,0, 0,0, 51, 51, 51, 51, 0,0, 60, 60, 51 
,51,43,43,0.0,12,12,51,51,51,51, 

2523  INPUT  "Te  kilen  (Fnax.  24  bog 
i  1  a  'V  e  r  " ,  c  *  ( n ) 

2529  IF  k=l  THEN  GO  TO  27øø 

0,0,15,15, 48 , 43 , 43 , 43 

3010  DATA  0,0,15,15,43,43,43,43, 
0,0,12,12,51,51,51,51,0,0,12,12, 

2530  NEXT  n 

2540  GO  TO  2700 

0,0,43,43,51,51,51,51 

2544  REM  2545=  g  AAAAAA  OSV  B 

3015  DATA  0,0,48,43,51,51,51,51, 

2545  LPRIF'JT  " - 

- X*"  ;  LPRIFvIT 

2549  LET  S»ø 

2550  FOR  n=l  TO  1 

2555  IF  nus  THEN  LPRItvIT  :  GO  TO 

0 , 63 , 63 , 0 , 0 , 0 , 0 

3020  DATA  0,0,0,0,43,48,12,12,0, 
0,0,0,0,0,0,0,0,0,63,63, 12, 12,3, 
3.0,0,63,03,0,0,0,0,0,0, 15, 15,43 
, io , 4w , 40 

2200 

2560  LPRINT  ;"  "  AND  a(n)<løø;" 

"  AND  a  (n )<  10, a  (n );"-"; "  "  AND  b 
(n)<løø;"  "  AND  b  (n )  <  10,  b  (n  )  ;  "  " 

.  c  f  ( n ) 

25d5  IF  a(n4(l  AND  n<l))<a(n)  TH 

3025  DATA  0,0,15,15,48,48,48,48, 
0,0,15, 15,48,43,48,48,0,0, 15,15, 

0,0,43,48,4.5,43.4.8,4.3 

EN  GO  TO  2600 

3030  DATA  0,0,63,63,0,0,0,0,0,0, 

2570  NEXT  n 

63,63,0,0,0,0,0,0,63,63,0,0,0,0, 

2530  FOR  n=l4(3  AND  3=1)  TO  22: 

0 .0,43,48, 12, 12, 3,  :3, 0,0, 48, 43, 12 

LPRINT  :  NEXT  n 

TAST -37 


TAST 


3050  DATA  0,0,252,552, 192, 192, 19 
2, 192,0,0,24.0,24.0, 12,12,12,12,0, 
0,45,48,12,12,12,12,0,0, 192 , 192 , 
43,43,12,12,0,0,12,12,12,12,12,1 

3055  DATA  ø,ø,ø,ø, 0,0,0,0,0,0,24 
0 , 240 , 204 , 204 , 204 , 204 ,0,0, 252 , 25 
2,0,0,0,0,0,0,12,12,12,12, 252 , 25 
2.0,0, 240 , 240 , 12 ,12,12,12 
3060  DATA  0,0,12,12,45,43,192,19 
2,0,0,12,12,12,12,12,12,0,0, 252 , 
252 ,0,0, 0,0, 0,0, 252 , 252 ,45,43,19 
2, 192,0,0,240,240, 12,12, 12, 12 
3070  DATA  0,0,0,0,192,192,192,19 
2,0,0, 240 . 240 ,12,12,60,60,0,0,12 
, 12,240 .240,192, 192,0,0,240,240, 
12,12,12,12,0,0,0,0,0,0,0,0 
3075  DATA  ø , ø , 240 , 24ø , 12 , 12 , 12 , 1 
2,0,0, 192, 192,48,48, 12,12,0,0,24 
0,240, 12,12,48,48,0,0,12,12,48,4 
S, 192, 192,0,0,0,0,0,0,0,0,0,0, 12 
12  12  1-  l2  12 

31øé  DATA'ø,ø,240,24ø, 12, 12, 12, 1 
2,0,0,12,12,12, 12,252,252,0,0, 12 
, 12 , 204 , 204 , 204 , 204 , ø ,0,240 , 240 , 
12,12,12,12,0,0,48,43,43,43, 252 , 
252 

3105  DATA  0,0,240,240,12,12,12,1 
2,0,0, 240 , 240 ,12,12,12,12,0,0,0, 
0,0,0, 192 . 192 ,0,0, 240 , 240 , 12 , 12 , 
12,12,0,0, 240 , 240 , 204 , 204 , 2ø4 , 20 
4 

3120  DATA  48,43,48,45,15,15,0,0, 
45,48,12,12,0,ø,0,0,4&,48,4&,43, 
12, 1 2,0, (5,48, 43, 43, 4&,  12, 12,ø,0, 
l2 , 12  ,ij,o,ø,ø,ø,ø 

3125  DATA  5 1 , 5 1 , 5 1 , 5 1 , 63 , 63 , ø . ø , 
51,51 .51,51, 15, 15, 0,0, 43,43, 4é, 4 
3,43,45,0,0,51,51,51,51,12,12,0, 
0,4u‘,4o,4.^,43, 15, 15,0,0 
3135  DATA  48,43,43,43,15,15,0,0, 
51,51,51,51, 63 , 63 , ø , Ø , 43 , 43 , 48 , 4 
3 , 15 , 15 ,0,0, 48 , 48 , 43 , 48 , 63 , 63 . 0 , 
0,51,51.51,51,63,63,0,0 
3140  DATA  51,51,51,51,63,63,0,0, 
4&,4&,4S,4s,  15, 15,0,0,o,o,L?,o,0(^ 
,Oo,0,0,4&,4t5,4S,4&,0,ø,ø,ø,ø,ø, 
0 , 0 , 0 , 0 , 0 , 0 

3145  DATA  3,3,3,3,63,63,0,0,0,0, 
0,0,63,63,0,0,3,3, 12, 12,63,63,0, 
0,3,3,12,12, 63 , 63 ,0,0, 48 , 43 , 48 , 4 
8 , 15 , 15 ,0,0 

3150  DATA  48,43,48,43,63,63,0,0, 
43,48,48,43, 15, 15,0,0,43,48,43,4 
S , 63 ,63,0,0,51,51,51,51, 12, 12 , ø , 
0,63, 63,48 ,48,43 , 43,43, 48 
3155_DATA  ø , ø , ø , ø , 63 , 63 , ø , 0 , ø , ø , 
0,0,63,63,0,0,0,0,0,0,63,63,0,0, 
3,6, 12, 12,46,48,0,0,0,0,6,6, 12, 1 
ci, 46, 43, 46, 46, 46, 46, 4  6,46,0,0 
3170  DATA  192,192,192,192,252,25 
2,0,0,12,12,12, 12,252,252,0,0, 12 
,12,12, 12,240,240,0,0, 12,12,12,1 
2,252,252,0,0,12,12,12,12,252,25 
2,0,0 

3175  DATA  ø . ø , ø , ø , 252 , 252 , ø , ø , 12 
,12,12, 12,240,240,0,0,0,0,0,0,25 
2 , 252 ,0,0,12,12,12,12,0,0,0,0,12 
, 12, 12, 12,240,240,0,0 
3180  DATA  0,0,0,0,252,252,0,0,12 
,12,12.12,252,252,0,0,0,0,0,0,25 
2 , 252 ,0.0, 0,0, 0,0, 252 , 252 , ø , ø , 12 
,  12,12,12,240,240,0,0 
3135  DATA  192,192,192,192,252,25 
2,0 .0,204,204, 12, 12,240,240,0,0, 
192 , 192 . 192 . 192 , 252 , 252 ,0,0,12,1 
2,12, 12; 43, 43, 0,0, 252, 252, 0,0,0, 

3190  DATA  12,12,12,12,240,240,0, 
0,12,12,43,43, 192 , 192 ,0,0,48,43, 
12, 12,240,240,0,0, 192, 192,43,43, 
12,12,0,0, 252 , 252 ,ø,ø,ø,ø,ø,ø,2ø 
4,204,60,60, 12, 12,0,0 
3200  DATA  204,204,60,60,240,240, 
0,0,12,12.12, 12,0,0,0,0,204,204, 
204,204,60,60,0,0, 12,12,12, 12,43 
,43,0,0,48,43,48,43, 240 , 240 ,0,0 


3205  DATA  12,12,12,12,43,48,0,0, 

12, 12, 12, 12,240,240,0,0,60,60,0, 

0,0,0,0,0,12,12,12,12, 240 , 240 , ø , 

0,204,204,204,204,0,0,0,0 

3210  DATA  0,0,0,0,0,63,0,0,0^131 

,69,43, 16,43,69, 131,ø,ø,ø,ø,d3,ø 

,0,0,63,0,0,0,0,0,0,0 

3300  PRINT  AT  16, ø; "DET  URRER  LI 

G£  ET  LILLE  ØJEBLIK." 

3306  DIN  t$i:LEN  å$;i:  DIM  t'SCLEN 
d$j:  DIM  9$  ((LEN  å$)#2) 

3304  FOR  n=l  TO  LEN  5$ 

3305  IF  d  $  I.n  ;>  =CHR$  32  THEN  LET  e 
$(n)=CHR$  93;  LET  f$(n:i=CHR$  93 

3307  IF  d$(n:i=CHR$  46  THEN  LET  é 
$(ri:i=CHR$  46:  LET  f$(rij=CHR$  93 
3310  FOR  (11=43  TO  90:  IF  d$(ri)=CH 
R$  f(.  THEN  LET  e:$(n)=CHR$  (d  :  LET 
f$(rij=CHR*  (rii+((32  AND  CODE  CHR$ 

fil  >64  AND  CODE  CHR$  rM<91j-(14  AN 
D  CODE  CHR$  rii<53  AND  CODE  CHR$  m 
>47) j ) 

3320  NEXT  (li 
3330  NEXT  n 
3335  LET  p=l 

3340  FOR  n=l  TO  (LEN  d**2)  STEP 
2:  LET  9  $  (n  )  =e  $  (p  )  :  LET  9$(n+l)  = 
f  $  ( P  ) 

3345  LET  p=p+l 

3:343  NEXT  n 

3350  POKE  23607,200 

3360  LPRINT  TAB  ((32-LEN  /2 

)  ,  9  $ 

3370  POKE  23607,204 

3330  LPRINT  TAB  ((32-LEN  d$±2)/2 

)  i.9  $ 

3332  POKE  23607,60 

3385  IF  t>13  THEN  LPRINT  :  LPRIN 
T  :  FOR  n=20  TO  t:  LPRINT  : "  "  A 
ND  d(n)<løø,"  "  AND  d  i.n  )  <  10 .  d  (n  i 
■■  AND  b(n)<løø,"  ••  AND  b( 
n  .1  <  10;  b  (n  .1  ,  '•  " ;  c  $  (n )  ;  NEXT  n 

3391  CL5  PRINT  .AT  ø  ,  ø "Hv  1  U.en 
af  .di  Sit  2  typer  Kase  t  le  "  "  brug 

er  .du  denne  9-3f'i9")  FLASH  1) 

FLASH  0 

3392  LET  w=ø 

3393  LET  t  $  =  "TEKST"  :  FOR  ri=l  TO 
5  :  PRINT  AT  S+ri,ll;  l$(ri)  ;  AT  S  +  n  , 
23;t$(ri):  NEXT  n 

3394  PLOT  56+w,d4:  DRAU  0,56:  DR 
AU  29,-3;  DRAU  0,-56:  DRAU  -29,8 

PLOT  37+W,56:  DRAU  3,2:  DRAU  ø 
,56:  DRAU  -3,-2:  PLOT  95+W,114: 
DRAU  -31,3:  DRAU  -3,-3 

3395  IF  m.i=96  THEN  GO  TO  3397 

3396  LET  W=96:  GO  TO  3394 

3399  FOR  n=56  TO  112  STEP  3:  PLO 
T  Sø , n ;  NEXT  H 

3400  FOR  n=61  TO  117  STEP  3:  PLO 
T  168 , n :  NEXT  n 

3401  PRINT  AT  16..  7,  "TYPE  1",AT  1 
6,19, "TYPE  2" 

:34ø2  PR  INT  '  "  ■(  Kort  o  fii  S  L  a  9  )  ^  t 

a  n  9  t  o  di  s  1.  a  9 )  " 

3403  PRINT  FLASH  1,RT  3,S,">",AT 
1 0  ,  '8 ,  '  >  "  i  AT  12,6^  ">  'iAT  6,2øj  "> 

"jAT  10,20, ">", AT  12,£;ø,">" 

3404  INPUT  "Type  (1..'2)  >";=■ 

3405  IF  £  ■;!  OR  s  >2  THEN  G5  TO  34 
04 

3403  FOR  ri=l  TO  10- (3  AND  5=1)  -( 
it-17)  AND  t>isi;  LPRINT  :  NEXT 
n 

3409  IF  5=2  THEN  GO  TO  3419 

3410  REM  3411  =  Ig  DDDDDD  OSV  B 

3411  LPRINT  "  ■ 


3412  GO  TO  50 

:341S  REM  3419  =  |S  CCCCCC  05 v  B 

3419  LPRINT  " - 

'  * 

3420  GO  TO  50 

3500  SAUE  "Kassette"  LINE  1 
3510  CLS  :  PRINT  "  UERIFY  'Kasse 
tte'  " 

3520  UERIFY  "Kassette" 
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Flag  er  noget  du  støder  på  til  dag¬ 
lig.  Til  sportsstævner,  politiske 
begivenheder,  når  du  er  ude  at  sej¬ 
le...  kort  sagt,  overalt 
Du  har  det  sikkert  lige  somjeg  -  du 
aner  ikke  hvilke  flag,  der  hører  til 
hvilke  lande.  Så  hvorfor  ikke  kæm¬ 
pe  mod  din  uvidenhed  og  prøve 
denne  Flag-træner! 

Lars  Ole  Dybdahl 


kfcM  FLAG  QUIZ  *** 

F’0=ø :  FL=ø 

POKE  53280..  12  :  POKE  53231..  12 
PR  I  HT  V  CLP)'' 

PR  I  NT  "C  BLÅR  ..RVS  ON. 

SPACE 15)FLAG  QUIZ 
CRVS  OFF>" 

PR  I  NT  "  CRSR  HØ.TRE8 ,  RVS  ON ..  RøD 
SPACE3 ..  HV I  :D  .  SPACE ..  RøH ..  SPACE5  > 
PR  I  NT  ■■  C  CRSF;  Hø.JRES .  RøD .  RV8  HH 
SPACE3  ..HVID ..  SPACE ..  RøD .  SPACE5  > 
PR  I  NT  "  <  CRSR  HØ.TRE8 .  HV  I D ..  RVS  O 
SPACE9V' 


6  PRINT"  (CRSR  HØ.JRE8..RVS  ON. .RøD.. 

SPACE3 ..  HV  I D ..  SPACE ..  RøD ..  SPACE5  >  " 

8  PR  I  NT  "(CRSR  HØ.TRE8.  RøD .  RV8  ON.. 

SPHCE3 ..  HV  I D ..  SPACE ..  RøD ..  SPACE5  >  " 

0  PRINT"  ( RØD >  .—.(CRSR  NED.. 

CRSR  VENSTRES)  I (SORT>C(RøD>  I (CRSR 
NED  ..CRSR  VENSTRES)  '—•(SORT,. 

RVS  ON>L.O.D  B.P.R  SOFTWARE ( BL A 
A..  RVS  OFF)" 

1  PRINT 

2  PR  I  NT  "  (  RVS  ON ..  SP ACE40 ..  RVS  OFF  >  "  .: 

3  PR  I  NT  "  ( RVS  OH ..  SP AC:E ..  RVS  OFF .. 
SPACE38.RVS  ON..  SPACE.  RVS  OFF>"; 
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34  PR  I  HT  "  C  R  VS  OH..  SPflCE4ø,  RVS  OFF>"; 

SS  FOR  R=1  TO  7 

37  PR  I  HT  "-rR  VS  OH.  SPRCE..  RVS  OFF,. 
SPRCE38..RVS  OH.. SPRCE. RVS  OFF>": 

38  HEXT 

40  PRIHT"-:;RVS  0H..SPRCE40..RVS  OFF>"; 

42  REN  VRRIRBLER 

44  hj$="(;home.cr3R  ned  16.. 

45  Txi="<Hi:iME.’CRSF  HEDIS.CRSR  HØ..TRE.. 
SORT>" 

46  POf="';;HONE..CRSR  HED  16.. 

CRSR  Hø.TRE17>" 

47  FLf  =  "  HONE ,.  CRSR  HED  1 8 . 

CRSR  Hø..TRE17>" 

50  REM  HOVED  PROGRRM 

52  FL=FL+1 

53  OH  FL  GOSUB  5øø.  51ø..  52ø.  53ø..  54ø.. 
550 . 560 . 570 ..  580 ..  59ø ..  6øø ..  6 1  ø ..  62ø  .■ 
630 ."  640 . 650 . 670 

54  PR  i  HT  Pøj "  (  SORT  >  PO I  HT  :  " .;  PO 

••  PR  I  HT  FL$ .;  "  SORT  >  FLRG  HR  :  "  .:  FL 

55  PRINT  H.J$.;:IF  FL=18  THEH  66ø 

56  PRINT  H..T$.iRl$  :  PRINT  HJ$; 

■'  c:  CRSR  HED  " .;  ft2$  ■  PR  I  HT  H..TJ ; 

"  CRSR  HED2  > " .:  R3$  ^  PR  I  HT  H.Jf 
"  <;  CRSR  HED3  ;•  "  f  PR  I  HT  H  ,. 

”':;CRSR  HED4>".;R5^ 

57  SVS  65499:  PRINT  TXf.. 

:  PR  I  HT  "  TRST  LANDETS  HAVN  "  .; 

: INPUT  L$ 

58  T=VAL(TI^> 

59  C=LEN  C  S$  >  :  B«:=LEFT^  (  Lt ..  C  > 

: IF  B$<>S$THEH  65 

60  IF  T<lø  THEH  P0=P0+5ø 

61  IF  T>lø  AND  T<:2ø  THEH  P0=P0+25 

62  IF  T>2ø  AND  TCSø  THEH  P0=P0+5 

63  PRINT  TXf.i  ■^:SORT>DET  VAR  RIGTIGT.. 

FLOT  ! !  " : GOTO  67 

65  PRINT  JK$," 

lt 

6E  PRINT  TX^.i  "FORKERT  •'  DET  VAR  ’’.;S'^ 
67  PR  I  HT  PO^ .;  "  <  SORT  >  PO  I  HT  :  "  ;  PO 
:  PR  I  HT  FLi: .;  "  SORT  >  FLAG  HR  :  "  .:  FL 
69  FOR  VENT=1  TO  15øø:HEXT  VENT 

496  PRINT  TX$.i"TRVK  EH  TAST  FOR  ET  H 
VT  FLAG 

497  GET  Ai::IF  A$=""THEH  497 

498  PRINT  TXI:;" 

lt 

499  GOTO  50 

500  REM  FLAG 

501  REM  IRLAND 

502  H 1  ■$■==  "  <  L .  GRØN .  RV3  OH ..  SPAGES .  H V I D .. 
SPACE3 .  ORANGE ..  SP  ACE3  > " 

503  A2 $=  "  C  L .  GRØN ..  R VS  OH ..  SP ACE3 .  HV I D .. 
SPACE3 ..  ORANGE ..  SPACE3  >  " 

504  H3t=  "CL.  GRØN ..  RVS  OH ..  SPACE3 .  HV  I D .. 
SPACE3 ..  ORANGE ..  SP ACE3  > " 


505  84$= "  C  L .  GRØN .  RVS  OH ..  SP ACE3 .  HV  I D .. 
SPACE3. ORANGE. SPACE3> " 

506  A5f  =  "CL.  GRØN ..  RVS  OH ..  SPACE3 .  HV  I D  . 
SPACE3 ..  OR  AHGE ..  SPACE3  " 

508  S#=" IRLAND" 

509  RETURN 

510  REM  THAILAND 

511  A 1  $= "  C  RVS  OH .  RØD ..  SPACE9  > " 

5 1 2  A2^=  "  C  HV  I D .  RVS  OH ..  SPACE9  >  " 

5 1 3  A3$= "  C  RVS  OH .  BLAA ..  SP ACE9  .>  " 

5 1 4  R4$=  <  HV  I D .  RVS  OH .  SPACE9  >  " 

5 1 5  A5t=  "  C  RVS  OH ..  RøD .  SPACE9 )  " 

516  S3:="THAILAHD" 

517  RETURN 

520  REM  BELGIEN 

521  Al  ■$=  "  C  RVS  OH .  SORT ..  SPRCE3 ..  GUL .. 
SPACE3..RøD..SPACE3>" 

522  A2i:="CRVS  OH. SORT.. SPACE3. GUL. 
SPACE3.RøD.SPACE3>" 

523  A3i:= "  C  RVS  OH .  SORT .  SPRCE3 .  GUL . 
SPACE3..  RØD.  SPAGES)  " 

524  A4$:=  "  C  RVS  ON .  SORT .  SPAC:E3 .  GUL . 
SPACE3 . RØD . SPACE3  > " 

525  A5$= " C  RVS  OH . SORT . SPACE3 . GUL . 
SPAGES.  RØD ..SPACE3>" 

526  S$= "BELGI EH" 

527  RETURN 

530  REM  UNGARN  m*. 

53 1  A 1 3:=  "  C  RVS  OH .  ORANGE .  SPACE9  >  " 

532  A2:^ = "  C  RVS  OH .  ORANGE .  SP ACE9 )  " 

533  A3$= "  C  RVS  OH .  HV  I D .  SPAGES  ;■  " 

534  R4i:="CRVS  0H.L.GRøH.SPACE9>" 

535  A5$ = " C  RVS  OH . L . GRøH . SPACE9 ) " 

536  Sf=" UNGARN" 

537  RETURN 

540  REM  TYSKLAND 

541  fl  1  $=  RVS  OH .  SORT .  SP ACE9  >  " 

542  A2t= " C  RVS  OH . SORT . SPACE9  > " 

543  A3t= " C  RVS  OH . RøD . SPACE9 ) " 

544  fl4t.=  c  RVS  OH .  GUL .  SPACE9  >  " 

545  A5$= " C  RVS  OH . GUL . SP ACE9  > " 

546  S$=" TYSKLAND" 

547  RETURN 

550  REM  ØSTRIG 

551  A1$="CRVS  OH.RøD.SPACES)" 

552  A2l:=  "  C  RVS  OH .  RøD .  SPAGES  >  " 

553  A3i:= "  C  RVS  OH .  H V I D .  SP ACE9  >  " 

554  R4$="CRVS  OH. RØD. SPAGES) " 

555  A5f  = " C  RVS  OH . RøD . SPAGES ) " 

556  S$="øSTRIG" 

557  RETURN 

560  REM  SVERIGE 

561  R1|:="CRVS  OH.  BLAA.  SPAGES. .GUL. 
SPACE. BLAA. SPAGES)" 

562  A2i:=  "  C  RVS  OH .  BLAA .  SPAGES .  GUL . 
SPACE . BLAA . SPAGES ) " 

563  A3t=  "  C  RVS  OH ..  GUL .  SPAGES  )  " 

564  A4$= " C  RVS  OH . BLAA . SPACE3 . GUL . 
SPAGE. BL AR. SPAGES)" 
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565  fl5$=  "  R VS  ON ..  BLÅR ..  SPRCE3 .  GUL . 
SPRCE.  ELRR..  SPRCE5>  ” 

566  Si='* SVERIGE" 

56?  RETURN 


570 

REM 

4«**  SC 

;HWEI2  4 

571 

Rlf= 

"<RVS 

ON, RøE, 

SPRCE9.) " 

572 

R2$= 

"<RVS 

ON, RØD, 

SPRCE4,HVID, 

e;prce 

,RøE,S 

iPRCE4>" 

» 

573 

R3t= 

"(RVS 

ON, RØD, 

SPRCE3,HVIE, 

EiPRCE 

3, RØD, 

SPRCES) 

1 " 

574 

R4$= 

"<RVS 

ON, RØD, 

SPRCE4,HVIE, 

SPRCE..RørGSPRC;E4>" 

575  R5$=  "  <  R VS  ON ROD ..  SPRCE9  > " 

576  S$=" SCHWEIZ" 

577  RETURN 

580  REM  4!#*  LIBYEN 

581  RI ■$■=  "  < RVS  ON .  GRØN ,  SPRCE9 > " 

582  R2*  =  "  C  RVS  ON .  GRøN ,  SPRC.E9  > " 

583  R3f  =  "  <  RVS  ON ..  GRøN .  SPRCE9  >  " 

584  R4$= " <  RVS  ON . GRøN , SPRCE9  > " 

585  R5I'=  "  <;  RVS  ON .  GRøN ..  SPRCES  >  " 

586  S$="LIBVEN" 

587  RETURN 

590  REM  NICRRRGUR 

591  RI " < RVS  ON ..  EL RR ..  SPRCE9 > " 

592  R2f  =  "  <  RVS  ON ..  ELRR ..  SPRCES  >  " 

593  R3t=  "  C  RVS  ON ..  HV I E SPRCE4  >  if 

594  R4$=  "  <;  RVS  ON ..  ELRR SPRCE9  >  " 

595  R5$= "  RVS  ON ..  ELRR .  SPRCE9  > " 

596  S$=" NICRRRGUR" 

597  RETURN 

600  REM  COLOMEIR 

60 1  R  RVS  ON .  GUL SPRCE9  > " 

602  fl2* = "  C  RVS  ON GUL ..  SPRCE9 ) " 

603  R3# = " <  RVS  ON . GUL . SPRCE9  > " 

604  R4$=  "  C  RVS  ON ELRR ..  SPRCE9  >  " 

605  R5$=  "  <;  RVS  ON ..  ROD .  SPRCE9  > " 

606  S$="COLOMEIR" 

607  RETURN 

610  REM  *4s4f  MEXICO 

611  R 1  $=  "  <  RVS  ON ..  GRØN ..  SPflCE3 .  HV  I D 
SPRCE3..  RØD,.  SPRCE3> " 

6 1 2  R2J  =  "  RVS  OH .  GRøN ..  SPRCE3 ..  HV  I D .. 
SPRCE3..RøD..SPRCE3>" 

6 1 3  R3$=  "  •;  RVS  ON GRøN ..  SPRCE3 .  HV  I D . 
SPRCE>4!  <RøD..SPRCE3>" 

6 1 4  R4$=  "  C  RVS  ON .  GRøN ,  SPflCE3 .  HV  I E .. 
SPRCE3..  RøE,.  SPRCE3> " 

6 1 5  R5$=  "  RVS  ON ..  GRøN .  SPRCE3 .  HV  I E .. 
SPRCE3..RøE..SPRCE3>" 

616  Sf =" MEXICO " 

617  RETURN 

620  REM  PERU 

621  R  1|:= "  <  RVS  ON ,  RØD .  SPRCE3 ..  HV  I D . 
SPRCE3..RøE..SPRCE3>" 

622  R2$=  "  C  RVS  ON .  RøD ..  SPRCE3 ..  H V I D , 
SPRCE3..RøE.SPRCE3>" 

623  R3$=  "  C  RVS  ON .  RøD ..  SPRCE3 ..  HV  I D . 
3PRCE  >  0  C  RØD ..  SPRCE3 ) " 


624  R4$=  "  C  RVS  ON .  RøE ..  SPRCE3 ..  HV  I E  .■ 
SPRCE3..RØD.SPRCE3V' 

625  R5$=  "  C  RVS  ON .  RøE .  SPRCE3 .  HV  I E 
SPRCE3 ..  RØE ..  SPRCE3  >  " 

626  S-|:="PERLI" 

627  RETURN 

630  REM  m*.  RRGENTINR  W-’m 

63 1  R 1  $=  "  <  RVS  ON .  L .  ELRR ..  SPRCE9  >  " 

632  R2t=  "  <  RVS  ON .  L .  ELRR  .■  SPRCE9  >  " 

633  R3$="':;RVS  ON..  HVID..  SPRCE4>@ 

634  R4$=  "  <  RVS  ON ..  L .  ELRR ..  SPRCE9  >  " 

635  R5$= "  C  RVS  ON ..  L .  ELRR ..  SPRCE9  > " 

636  Sf= "RRGENTINR " 

637  RETURN 

640  REM  SPRHIEN 

641  RU="c:rvS  0N.RøD.SPRCE9>" 

642  R2$= " <  RVS  ON . GUL . SPRCE9  > " 

643  R3$="<RVS  ON  UjUL . SPRCE9 > " 

644  R4$=  "  <  RVS  ON ,  GUL. ..  SPRCE9  ;• " 

645  R5i:=  "  RVS  ON ,  RøE ..  SPRCE9  >  " 

646  S$="SPRNIEN" 

647  RETURN 

650  REM  m*.  FRANKRIG 

651  RI  "  <  RVS  ON ..  ELRR ..  SPRCE3 ..  HV  I E . 
SPRCE3..RØD..SPRCE3;)" 

652  R2$=  "  <  RVS  ON ..  ELRR ..  SPRCE3 ..  HV  I E .. 
SPRCE3..RøE..SPRCE3>" 

653  R3t=  "  C  RVS  ON ..  ELRR ..  SPRCE3 ..  HV  I E .. 
SPRCE3..RøE..SPRCE3>" 

654  R4f  =  "  <;  RVS  ON ..  ELRR ..  SPRCE3 ..  HV  I E .. 
SPRCE3..RøD..SPRCE3>" 

655  R5^  =  "  RVS  ON ..  ELRR ..  SPRCE3 ..  HV  I D .. 
3PRCE3.RøE..SPRCE3>" 

656  S:f=  "FRANKRIG" 

657  RETURN 

660  IF  PO>HI  THEN  HI=PO 

661  PRINT"(:CLR>DER  ER  IKKE  FLERE  FLR 
G  !  !  " 

662  PRINT: PR I NT "TRK  FOR  SPILLET  !" 

663  PR I NT : PR I NT " PO I NT  :  "  PO 

664  PR I NT " H I -SCORE : " H I 

665  PR I NT : PR I NT : PR I NT : PR I NT 

PRINT"  NYT  SPIL  <J/N>" 

666  GET  N^:IF  N^=""THEN  666 

667  IF  N$<>"J"THEN  ENE 

668  L’UTO  10 

670  RÉm"4s#3^  FINLAND 

671  R 1  $  =  "  'i  RVS  ON .  HV  I E ..  SPRCE3 .  L .  ELRR . 
SPACE,  HVID..  SPRCE5>" 

672  R2$= "  C  RVS  ON ..  HV  I E ..  SPRCE3 ..  L .  ELRR .. 
SPACE,  HVID..  SPRCE5>" 

673  R3$= " <  RVS  ON , L . ELRR , SPRCE9  > " 

674  R4$= " <  RVS  ON , HV I E , SPRCE3 , L . ELRR , 
SPACE, HVID, SPRCE5>" 

675  R5$=  "  <;  RVS  ON ,  H V I D ,  SPRCE3 ,  L .  ELRR , 
SPACE, HVID, SPRCE5>" 

676  St= "FINLAND" 

677  RETURN 
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Hermed  en  lille  rutine,  der  er  højs*" 
upopulær  programmerne  imel¬ 
lem.  Den  knuser  nemlig  alle  de  an¬ 
dre  programmer  og  river  al  struk¬ 
turen  ud  af  dem.  ved  at  fjerne  alle 
REM-sætninger  og  mellemrum. 
Til  gengæld  sparer  det  Kb  RAM  i 
hukommelsen,  og  det  kan  vi  jo  alle 
tit  ha'  brug  for... 

Martin  K.  Pedersen 


I 


100  DATA  1B5, 12S, 141 , 1B9,E, 1B5, 1S3, 
141, 170,2, 3E, 142, IBB , 24 , IBS , 43 , 

103.3.133.122 

110  DATA  1B5, 44, 105, 0, 133, 123, 1B9, 0, 
133,253,141 , 171,2,79,24,193,201 , 
143,200,117 

120  DATA  IBS, 253, 200, 3, 7B, 211, 192, 5B, 
155,122,233,1 , 141 , 157,2,133,251, 
1B5, 123 

130  DATA  233,0,141,150,2,133,252,24, 
32,9, 169 ,32,251,160,165 
140  DATA  122,133,254,165,123,133,255, 
IBØ , 0 , 177 , 254 , 145 , 251 , 230 , 254 , 200 , 
2,230 

150  DATA  255,230,251,200,2,230,252, 
1B5 , 251 ,197,45,144, 234 , 24 , 1B5 , 252 , 

197.46. 144 

IBØ  DATA  227,173,167,2,133,122,173, 
160,2,133,123,165,122,197,45,144, 
9,165,123 

170  DATA  197,46,144,3,76,233,192,56, 
165,122,233,1,133,122,165,123,233, 
0,133,123 

100  DATA  169,0,133,253,76,41,192,201, 
0 , 240 , 22 , 169 ,1,133, 253 ,165,122, 

197.45. 144 

190  DATA  9,165,123,197,46,144,3,76, 
233,192,76,41 , 192,24,165, 122,105, 

4.133. 122 


200  DATA  165,123,105,0,133,123,169,0, 
133,253,76,173,192,56,165,122,141, 
167,2 

210  DATA  233,5,133,251,165,123,141, 
160 , 2 , 233 ,0,133, 252 ,76,74,192,32, 
51,165, 169 

220  DATA  255,133,20,133,21,32,19,166, 
169,2,24,101,95,133,45,133,47,133, 
49,169,0 

230  DATA  101,96,133,46,133,40,133,50, 
32,51 , 165,173,169,2,133,122,173, 

170.2.133 

240  DATA  123,96,32,101,193,201,32, 
200,30,173,171,2,200,62,165,122, 

141.167.2.133 

250  DATA  251,165,123,141,160,2,133, 
252,24,32,101,193,201,32,240,249, 

165.122.133 

260  DATA  254,165,123,133,255,76,91, 
192,72, 201 , 34 , 200 ,11,173,171,2,73, 
1,141, 171 

270  DATA  2,76,97,193,201,0,200,0,173, 
171,2,240,3,76,74,193, 104,76,44, 
192, 160,0 

200  DATA  230,122,200,2,230,123,177, 
122 ,201,50,176,6,56, 233 ,40,56, 233 
200,96 

290  FDR  A=491BØ  TO  49529: READ  B 

:POKE  A,B:NEXT  A : PRINT”SYSC491BØ) 
FDR  AT  STARTE  REMARK” 


42 -TAST 


Amstrad 


Disk^katalog 

Her  er  disk-katalog!  En  fuldt  fær¬ 
dig  database  til  Amstrad  CPC  664 
og  6128. 

Når  programmet  starter,  kommer 
der  en  fejlmelding  om.  at  maski¬ 
nen  ikke  kan  finde  nogen  fil  med 
navnet  DISKDATA.  Samtidig  står 
cursoren  ud  for  DATO.  Skriv  så  da¬ 
toen. 

Ud  fra  menuen  kan  der  nu  vælges 
seks  ting:  Nye  data.  data  fra  kata¬ 
log.  list  data.  save  data.  print  data 
og  søge  data.  Vælges  nye  data. 
indsættes  en  disk  (f.eks.  nummer 
12).  Der  trykkes  på  n-tasten  og 
programmet  spørger  om  disk¬ 
nummeret  og  side  (a/b).  Herpå 
svares  med  1 2a  og  ENTER.  Maski¬ 
nen  skriver  nu  i  øverste  linie:  1 2a 
og  et  stort  mellemrum  til  datoen. 

CAT-kommandoen  viser  diskens 
indhold  på  skærmen,  hvorefter 
der  spørges  om  emnet  for  disk¬ 
siden.  Dette  besvares,  og  disk¬ 
siden  indlæses.  Næste  gang  man 
bruger  1 2a  og  opdaterer  den  un¬ 
der  samme  emne.  er  det  kun  at 
trykke  ENTER  under  spørgsmålet 
om  emnet  på  disken. 

Ved  at  taste  D.  spørges  igen  om 
disknummer  og  -side.  Prøv  at  ta¬ 
ste  f.eks.  1 2ru8ia.  Den  finder  alli¬ 
gevel  frem  til  disk  1 2a.  emne.  da¬ 
to.  indhold  samt  resterende  plads. 

Trykkes  R  vises  la.  Ib.  2a.  osv. 
osv.  ved  et  tryk  på  Space  (mellem¬ 
rumstangenten).  S  saver  data  til 
disk  under  diskdata.  P  udprintrer 
den  ønskede  diskside  og  trykker 
du  på  a'et  i  en  bolle  (også  kaldet 
snabel-a.  ligger  på  en  tast  for  sig 
selv  til  højre  i  tastaturet)  kan  du 
søge  en  fil.  F.eks.  skrives  ’ams- 
word’  eller  ’amsword.bin'. 

Ole  Tived 


10  ’  *♦*  DISC-KATALOG  for  CPC  664  tc  6128 

20  ’  Ole  Tived 
30  ON  ERROR  GOTO  910 

40  MODE  2:at»30:DIM  ad« ( at ), bd» ( at ), nr« ( at , 36) , ae» ( at ), be» ( at ), n« ( at ) 

50  REM  MENU  *** 
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60  m=3:G0SUB  2190 

70  LOCATE  10, 5: PRINT"NY  DISK  I  KATALOG  (N)" 
80  LOCATE  50,5:PRINT"SAVE  DATA  (S)“ 

90  LOCATE  lO, 7:PRINT“DISK  FRA  KATALOG  (D)“ 

100  LOCATE  50,7;PRINT"PRINTER  UDSKRIFT  (P)“ 

110  LOCATE  10,9:PRINT"LIST  DISKE  (L)" 


120  LOCATE  50,9;PRINT"S0GE  DATA  I  KATALOG  (S)* 

130  LOCATE  33, 24: PRINT" (  Max " ; at J " d i  ske  )" 

140  LOCATE  35,11:PRINT  “FREE  "ILOCATE  40,11:PRINT  FRE ( " " ) -4200 

150  IF  ld=0  THEN  830 

160  2=0: c»=LOWER*< INKEY*) 

170  IF  c«="n"  THEN  d=3:G0T0  2100 

180  IF  c*="d"  THEN  2110 

190  IF  c*="s"  THEN  700 

200  IF  c*="p"  THEN  2120 

210  IF  c*="e"  THEN  x=2:y=6:G0T0  960 

220  IF  c»="l“  THEN  1520 

230  GOTO  160 

240  REM  ***  Disk  fra  katalog  <D)  *** 

250  GOSUB  2190 
260  w=6: LOCATE  64,4 

270  IF  ds»=“a"  THEN  PRINT  ‘DATO  :  “ ; ad* ( n ) : GOTO  290 

280  IF  ds*="b"  THEN  PRINT  "DATO  :  " J bd* < n ) : GOTO  320 

290  LOCATE  25,4:PRINT  "Emne  :  ";ae»(n) 

300  FOR  i=l  TO  18:L0CATE  2,w:PRINT  nr*<n, i ) :w=w+1:NEXT  i 
310  GOTO  340 

320  LOCATE  25,4:PRINT  "Emne  :  ‘Jbe*(n) 

330  FOR  i*19  TO  36:L0CATE  2,w:PRINT  nr* < n , i ) : w=w+ 1 : NEXT  i 
340  WHILE  INKEY(18)<>0:WEND:G0T0  60 

350  REM  Ny  disk  i  katalog  (N)  *** 

360  d»0:CLS 

370  LOCATE  l,l:PRINT  "DISK-NUMMER  : " J n* ( n ) + "  "+ds* 

380  IF  ds*="a"  THEN  q=l:LOCATE  64,l:PRINT  "DATO  :  ";ad*(n) 

390  IF  ds*="b"  THEN  q=2:L0CATE  64,l:PRINT  "DATO  :  "Jbd*<n) 

400  CAT 

410  LOCATE  27, 25: PRINT"Sid  stille,  AMSTRAD  skriver  !" 

420  IF  q=l  THEN  440 
430  IF  q=2  THEN  570 

440  FOR  i=l  TO  18: nr* ( n , i ) =" " : NEXT  i 

450  FOR  i=l  TO  18 

460  FOR  x=l  TO  77:y=i+4 

470  LOCATE  x , y : a*=COPYCHR* < #0 ) 

480  nr* ( n , i ) =nr* ( n , i ) +a* 

490  NEXT  X 

500  IF  nr*(n, i )=STRING*(77, "  ")  AND  q=9  THEN  nr* ( n , i - 1 ) =LEFT* ( nr* ( n , i - 1 ) , 1 0 ) : nr* 
<n, i)="":GOTO  530 

510  IF  nr*(n, i )=STRING*<77, "  ")  THEN  nr* < n , i ) = "♦" : q=9 
520  NEXT  i 

530  ENV  2, 10, -1,5:S0UND  1,25,50,10,1 

540  LOCATE  25,25:PRINT  SPACE* ( 40 ): LOCATE  1 , 25: PRINT"Samme  emne  :  > " ; ae* ( n ) : LOCAT 

E  42, 25:PRINT"<  tast  ENTER,  ellers  skriv  i  linie  1": 

LOCATE  58, 1 :PRINT"< " 

550  LOCATE  23,l:LINE  INPUT  "Emne  : > " , ae* ( O ) : IF  ae*(0)<>""  THEN  ae* ( n ) =LEFT* ( ae* ( 
O) , 28) 

560  GOTO  690 

570  FOR  i=19  TO  36: nr* < n , i ) = " " : NEXT  i 

580  FOR  i=19  TO  36 

590  y*i-14:FOR  x=l  TO  77 
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600 

LOCATE  x,y:a»=C0PYCHR*(#0) 

610 

nr*  ( n ,  i )  =nr*  ( n ,  i  )  -•■a* 

620 

NEXT  X 

630 

IF  nr*(n, i ) =STR1NG*(77, "  ")  AND  q=9  THEN  nr* ( n , i - 1 ) =LEFT* ( nr* ( n , i - 1 ) 

, 10)  :  nr* 

(n, i )=" " :G0T0  660 

640 

IF  nr*(n, i )=STRING*(77, "  ")  THEN  nr*(n 

, i ) =•*" : q=9 

650 

NEXT  i 

660 

ENV  2, 10, -1 , 5: SOUND  1,25,50,10,1 

670 

LOCATE  25,25:PRINT  SPACE* < 40 ): LOCATE  1 

, 25: PRINT"Samme  emne  :  > " j be* ( n ) : LOCAT 

E  42 

,25:PRINT"<  tast  ENTER,  eller  skriv  i 

linie  1*:L 

OCATE  58, l: PRINT" < " 

680 

LOCATE  23,1:LINE  INPUT  "Emne  : > " , be* ( 0 ) ; IF  be*(0)<>""  THEN  be* ( n ) *LEFT* < be* ( 

0) , 28) 

690 

WHILE  INKEY(18)<>0:WEND:G0T0  60 

700 

REM 

*1r*  Save  data  (S) 

*** 

710 

LOCATE  19, 16: INPUT  "Har  du  den  rigtiøe 

disk  i  drevet  ?  (J/N)  :  " , s* 

720 

IF  LOWER*(s*)="j "  GOTO  730  ELSE  50 

730 

LOCATE  35,18:PRINT  "Saving  data* 

740 

OPENOUT  "! DISKDATA" 

750 

FOR  j=l  TO  at 

760 

PRINT#9,ad*(j  )  :PRINT#9,  ae*<  j  )  :PRINT*»9, 

bd*(j ) :PRINT#9,be*(j ) 

770 

FOR  t=l  TO  36 

780 

PRINT#9, nr*( j , t) 

790 

NEXT  t:NEXT  j 

800 

CLOSEOUT 

810 

ENV  2, 10, -1 , 5: SOUND  1,25,50,10,1 

820 

LOCATE  3,16:PRINT  SPACE* ( 75 ): LOCATE  3, 

18:PRINT  SPACE*(75) :G0T0  160 

830 

REM 

***  Loading  data  *•)(■■)(• 

840 

LOCATE  35,18:PRINT  "Loading  data" 

850 

OPENIN  "! DISKDATA" 

860 

FOR  j=l  TO  at 

870 

INPUT«9, ad*( j ) : INPUT#9, ae*< j ) ; INPUT#9, 

bd*(j ) : INPUT«9,be*(j ) 

880 

FOR  t=l  TO  36 

890 

INPUT#9, nr*< j , t) 

900 

NEXT  t:NEXT  j 

910 

IF  ERR=32  THEN  RESUME  920 

920 

closein: id=ioo 

930 

ENV  2, 10, -1 , 5: SOUND  1,25,50,10,1 

940 

LOCATE  3,16:PRINT  SPACE* < 75 ): LOCATE  3, 

18:PRINT  SPACE*(75) 

950 

LOCATE  34,18:LINE  INPUT  "DATO  :  ",  dato*: LOCATE  3,18:PRINT  SPACE*(75) 

: LOCATE 

35,11:PRINT  SPACE* ( 25 ): goto  140 

960 

REM 

***  SOGE  DATA  <(2)  *** 

970 

s=3:G0SUB  2190 

980 

LOCATE  62,2:PRINT"DISK-NUMMER  :  " 

990 

LOCATE  2, 2: INPUT  "SOGER  DATA  :  " , se*: se*=UPPER* ( se*) 

1000 

LOCATE  40,4:PRINT  “*  SPACE  +or  tiere 

***  ENTER  tor  menu  *“ 

1010 

d=LEN ( se*) 

1020 

FOR  q=l  TO  at 

1030 

LOCATE  62, 2: PRINT"DISK-NUMMER  :  ";q 

1040 

FOR  w=l  TO  18 

1050 

t=0 

1060 

na*=MID*(nr*(q, w) ,1,17):IF  MID*(na*,l 

,d)=se*  THEN  GOSUB  1320 

1070 

IF  na*=""  THEN  t=t+l 

1080 

na*=MID*(nr*(q, w) ,21, 17) : IF  MID*(na*, 

l,d)=se*  THEN  GOSUB  1320 

1090 

IF  na*="“  THEN  t=t+l 

1100 

na*=MID*(nr*(q, w) ,41, 17) : IF  MID*(na*, 

l,d)=se*  THEN  GOSUB  1320 

1110 

IF  na*=""  THEN  t=t+l 

1120 

na*=MID*<nr*(q, w) ,61,17):IF  MID*<na*, 

l,d)=se*  THEN  GOSUB  1320 
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1130  IF  na*=""  THEN  t=t+l 
1140  v=w+18 

1150  na*=MID*<nr*(q, V) , 1, 17) : IF  MID* ( na*, 1 , d ) =se»  THEN  GOSUB  1280 
1160  IF  na*="“  THEN  t=t+l 

1170  na*=MID*(nr*(q,v) ,21, 17) : IF  MI D* < na*, 1 , d ) =se*  THEN  60SUB  1280 
1180  IF  na*=““  THEN  t=t+l 

1190  na*=MID*(nr*(q, V) , 41 , 17) : IF  MID* ( na*, 1 , d ) =se*  THEN  GOSUB  1280 
1200  IF  na*=""  THEN  t=t+l 

1210  na*=MID*(nr*(q, V) , 61 , 17) : IF  MID* < na*, 1 , d ) =se*  THEN  GOSUB  1280 
1220  IF  na*=""  THEN  t=t+l 
1230  IF  t=8  THEN  w=19 
1240  NEXT  w:NEXT  q 

1250  LOCATE  40,4:PRINT  SPACE* < 39 ): PRINT  CHR*(7) 

1260  LOCATE  40, 4:  PRINT  "*  Ikke  -flere  data  ♦**  ENTER  for  menu 
1270  WHILE  INKEY ( 18) <>0: WEND: GOTO  60 
1280  ENV  1 , 10, -1 , 5: SOUND  1,25,50,10,1 

1290  LOCATE  3,4;PRINT  SPACE* ( 36 ): LOCATE  3, 4: PRINT"Emne  :  "}be*<q) 

1300  IF  q<10  THEN  LOCATE  x-H,y  ZPRINT  qZLOCATE  x-»^3,  y:  PRINT  '  b  ••jna*;GOTO  1360 
1310  IF  q>9  THEN  LOCATE  x,y  ZPRINT  qZLOCATE  x■^3,yZPRINT  "  b  "}na*ZGOTO  1360 
1320  ENV  1 , 10, -1 , 5Z SOUND  1,25,50,10,1 

1330  LOCATE  3,4ZPRINT  SPACE* < 36 ) Z LOCATE  3, 4Z PRINT"Emne  Z  "iae*(q) 

1340  IF  q<10  THEN  LOCATE  x-H,y  ZPRINT  qZLOCATE  x•^3,yZPRINT  “  a  "  !  na* 

1350  IF  q>9  THEN  LOCATE  x,y  ZPRINT  qZLOCATE  x■^3,yZPRINT  “  a  "  J  na* 

1360  y-y+lZlF  y=25  AND  x=2  THEN  y=6Z  x=28 
1370  IF  y=25  AND  x=28  THEN  y=6Zx=54 
1380  IF  y=25  AND  x=54  THEN  GOSUB  1430 
1390  WHILE  INKEY  (18)  OO  OR  INKEY  (47)00 
1400  IF  INKEY(18)=0  THEN  60 
1410  IF  INKEY (47) =0  THEN  RETURN 
1420  WEND 

1430  FOR  i =6  TO  23 

1440  LOCATE  2, i ZPRINT  SPACE*(77) 

1450  NEXT  iZLOCATE  2,24ZPRINT  SPACE*(52) 

1460  FOR  i=55  TO  79 

1470  LOCATE  i , 24Z a*=COPYCHR* (#0) 

1480  LOCATE  i -52, 6Z PRINT  a* 

1490  NEXT  i 

1500  x=2Zy=7ZLOCATE  54,24ZPRINT  SPACE*(24) 

1510  RETURN 

1520  REM  ***  LIST  DATA  *** 

1530  FOR  n=l  TO  at Z n* ( n ) =STR* ( n ) Z ds*= “ a* Z GOSUB  2190 
1540  LOCATE  4, 2Z  PRINT"SPACE-tast  -for  -flere" 

1550  LOCATE  64,4ZPRINT  "DATO  Z  "!  ad* ( n ) Z LOCATE  25,4ZPR1NT  "Emne  Z  " » ae* ( n ) 

1560  w=6ZF0R  i=l  TO  18 

1570  LOCATE  2,wZPRINT  nr*  (  n  ,  i  )  Z  w=w-*- 1 Z  IF  nr*(n,i)  =  ""  THEN  1590 
1580  NEXT  i 

1590  WHILE  INKEY(18)<>0  OR  INKEY(47)<>0 
1600  IF  INKEY(18)=0  THEN  60 
1610  IF  INKEY(47)=0  THEN  1630 
1620  WEND 

1630  ds*="b" Z GOSUB  2190 

1640  LOCATE  4, 2Z  PRINT"SPACE-tast  for  -flere* 

1650  LOCATE  64,4ZPRINT  "DATO  Z  "; bd* ( n ) Z LOCATE  25,4ZPRINT  "Emne  Z  " ; be* ( n ) 

1660  w=6ZF0R  i=19  TO  36 

1670  LOCATE  2,wZPRINT  nr* ( n , i ) Z w=w-H  Z IF  nr*(n,i)=""  THEN  1690 
1680  NEXT  i 

1690  WHILE  INKEY  (18)  OO  OR  INKEY  (47)00 
1700  IF  INKEY ( 18) =0  THEN  60 
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1710  IF  INKEY<47)=0  THEN  1730 
1720  WEND 
1730  NEXT  n 

1740  WHILE  INKEY(18)<>0;WEND:G0T0  60 
1750  GOTO  60 

1760  REM  ***  Printer  udskrift  (P)  *** 

1770  IF  ds*=“b“  THEN  1850 
1780  CLS 

1790  LOCATE  4 , 1 : PRINT “ DISK-NUMMER n» ( n )+ "  "+ds* 

1800  LOCATE  64 , 1 : PRINT " DATO :  ";ad»(n) 

1810  LOCATE  25,1:PRINT  "Emne:  “ j ae* ( n ): LOCATE  2,2:PRINT 

1820  w=3:  FOR  i=l  TO  18:L0CATE  2,w:PRINT  nr* < n , i ) : w=w+ 1 : NEXT  i 

1830  GOSUB  2040 

1840  GOTO  1920 

1850  CLS 

1860  LOCATE  4 , 1 : PR I NT " D I SK-NUMMER : " ; n* ( n ) + "  "+ds* 

1870  LOCATE  64, 1 : PRINT"DATO:  "5bd*(n) 

1880  LOCATE  25,l:PRINT  "Emne:  " 5 be* ( n ): LOCATE  2,2:PRINT 
1890  w=3:  FOR  i=19  TO  36:L0CATE  2,w:PRINT  nr* ( n , i ) : w=w+ 1 : NEXT  i 
1900  GOSUB  2040 
1910  GOTO  1980 

1920  PRINT#8,TAB(5) "DISK-NUMMER: ";n*(n)+"  " +ds*; TAB ( 25 ) " Emne :  " 5  ae* ( n ) ; TAB ( 64 ) " D 

ATO:  "iad*(n) 

1930  PRINT#8, TAB(3) "*" 

1940  FOR  i=l  TO  18 

1950  PRINT#8, TAB(3) " " 5 nr*(n, i ) ; 

1960  NEXT  i  :PRINTI*8:PRINT#8 
1970  PRINT  CHR*(7):G0T0  60 

1980  PRINTi»8,  TAB  (5)  "DISK-NUMMER:  "  i  n*(n  ) +"  " +ds*5  TAB  (  25 )  "  Emne :  "  ;  be*  (  n  )  ;  TAB  ( 64 )  "  D 

ATO:  ";bd*(n) 

1990  PRINT»8, TAB (3) 

2000  FOR  i =19  TO  36 
2010  PR1NT#8, TAB(3) " " ; nr*(n, i ) 5 
2020  NEXT  i :PRINT«8:PRINT»8 
2030  PRINT  CHR*(7):G0T0  60 

2040  LOCATE  19, 25: PRINT"Tast  SPACE  for  print  eller  ENTER  for  menu" 

2050  WHILE  INKEY(47)<>0  OR  INKEY(18)<>0 
2060  IF  INKEY(47)=0  THEN  RETURN 
2070  IF  INKEY(18)=0  THEN  60 
2080  WEND 

2090  ’  Sub-rutiner  fra  menu  **■»• 

2100  LOCATE  8 , 5 : PRINT ; CHR* ( 243 ) : GOSUB  2130:G0T0  360 
2110  LOCATE  8, 7: PRINT; CHR* (243) : GOSUB  2130:G0T0  240 
2120  LOCATE  48 , 7 : PRINT ; CHR* ( 243 ): GOSUB  2130:GOTO  1760 

2130  LOCATE  30,16:L1NE  INPUT  "DISK-NUMMER  (a/b)  :  " , m*: n=VAL ( m*) : ds*=RIGHT* ( LO 

WER* ( m* ) , 1 ) : n* ( n ) =STR* ( n ) 

2140  IF  n<l  OR  n>at  THEN  50 

2150  IF  ds*<>“a"  AND  ds*<>"b"  THEN  50 

2160  IF  d=3  AND  ds*="a"  THEN  ad*(n)=dato* 

2170  IF  d=3  AND  ds*="b"  THEN  bd*(n)=dato* 

2180  RETURN 

2190  CLS:ORIGIN  0,0:DRAW  0,390:DRAW  639,390:DRAW  639,0:DRAW  0,0:’ramme 
2200  PLOT  0,364:DRAW  640 , 364 : LOCATE  34, 2: PRINT"DISK-KATALOG" 

2210  IF  m=3  THEN  PLOT  0,220:DRAW  639 , 220: m=0 : RETURN 
2220  IF  s=3  THEN  PLOT  0,325:DRAW  640 , 325 : s=0 : RETURN 

2230  LOCATE  59, 2: PRINT"ENTER-tast  for  menu": PLOT  0,325:DRAW  640,325 
2240  LOCATE  3, 4: PRINT  "DISK-NUMMER  : " ; n* ( n ) ♦ "  "+ds* 

2250  RETURN 
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